r%-fll78  588  AN  INTERACTIVE  CONPUTER  FORECASTING  NODEL  TO  OETERNINE  1/2 
^  THE  EFFECTS  OF  POL  (U>  NAVAL  POSTGRADUATE  SCHOOL 

HONTEREV  CA  P  G  VALKO  DEC  8G 


UNCLASSIFIED 


F/C55/9 


NL 


! 


MICROCOPY  RtSOLUTION 


m  nu 

NAVAL  POSTGRADUATE  SCHOOL 

Monterey,  California 


THESIS 


AN  INTERACTIVE  COMPUTER  FORECASTING 
MODEL 

TO  DETERMINE  THE  EFFECTS  OF  POLICY 
CHANGES  ON 

THE  VALUATION  OF  THE  MILITARY  RETIREMENT 

SYSTEM 


Peter  G.  Valko 


December  1986 


Thesis  Advisor 


K.  J.  Euske 


Approved  for  public  release;  distribution  is  unlimited. 


87 


^ 


UNCLASSIFIED _ 

SECuSifv  CLASSifitAViON  Of  thi?  page 


>4  «EPO«T  security  CLASSifiCATlON 
UNCLASSIFIED 


4  security  Classification  authority 


REPORT  DOCUMENTATION  PAGE 


'b  restrictive  markings 


2b  OEClASSiFiCATiON  <  downgrading  SCHEDULE 


4  performing  organization  report  NUMBER(S) 


3  distribution/ availabiutv  of  report 
Approved  for  public  release; 
Distribution  is  unlimited 


S  MONITORING  ORGANIZATION  REPORT  NUV8ER(S) 


64  name  of  performing  organization 

Naval  Postgraduate  School 

6b  OFFICE  SYMBOL 
(If  ippiictbie) 

54 

74  NAME  OF  MONITORING  ORGANIZATION 

Naval  Postgraduate  School 

6<  ADDRESS  (C/fy,  Sf4f*,  end  ZIP  Code) 

7b  ADDRESS  (City.  Sfjf»,  4nd  Z//»Cod»3 

Monterey,  California  93943-5000 

Monterey,  California  93943-5000 

84  NAME  OF  FUNDING/ SPONSORING 

8b  OFFICE  SY'MSOL 

9  PROCUREMENT  INSTRUMENT  IDENTIFICATION  NUMBER 

organization 

(If  ippiKibie) 

AOO^^ESS  (Cry.  406  I 

10  SOURCE  OF  FUNDING  NUMBERS 

PROGRAM 
ELEMENT  NO 


PROJECT 

NO 


WORK  UNIT 
ACCESSION  NO 


'I  Title  (inc/oa*  Stcunry  CUtlificition) 

AN  INTERACTIVE  COMPUTER  FORECASTING  MODEL  TO  DETERMINE  THE  EFFECTS  OF  POLICY  CHANGES 
ON  THE  VALUATION  OF  THE  MILITARY  RETIREMENT  SYSTEM. 


•2  PERSONA,.  AuThOR(S) 
Valko,  Peter  G. 


■  34  TYSj  OF  REPORT 
Master's  Thesis 


Ub  Time  covered 
from  to 


14  DATE  OF  REPORT  iY*4r  Month  Otf)  IS  PAGE  COoNT 

1986  December  131 


COSATi  COOES 


SUB-GROUP 


'8  SUBJECT  terms  (Continur  on  rrvtrtf  it  nrceu^ry  *nd  idtntify  by  block  number) 

Military  Retirement,  computer  forecasting,  computer 
simulation. 


")  abstract  (Continue  on  reverie  if  neceuery  end  identify  by  block  number) 

In  the  past  thirty  years,  as  military  retirement  costs  have  climbed 
from  1%  of  the  defense  budget  to  their  current  8%  level,  the  military 
retirement  system  (and,  in  particular,  the  non-disability  retirement 
component)  has  come  under  increasing  criticism  and  scrutiny  by  the 
Congress,  the  public,  and  the  news  media.  Recommendations  from  previous 
studies  of  the  military  retirement  system  have  proposed  various 
modifications  to  the  system  to  alleviate  alleged  inequities  and 
inefficiencies,  and  to  reduce  costs.  A  BASIC- language  computer  model 
(ENTRYAGE)  was  developed  in  1983  as  part  of  a  thesis  to  perform  a 
sensitivity  analysis  on  entry-age  normal  retirement  cost  methods  to 
evaluate  some  of  these  recommendations.  At  the  request  of  the  Office  of 
the  Assistant  Secretary  of  Defense,  an  effort  was  initiated  to  revise 
the  program  to  produce  results  that  replicate  those  of  the  Military 


20  0  S‘R'3uT!0N/ availability  OF  ABSTRACT 

(ZI-NCLASSIFIEOIUNLIMITEO  □  SAME  AS  RPT  □  OTiC  USERS 

ZT  abstract  SECURITY  CLASSIFICATION 

UNCLASSIFIED 

224  NAME  OF  responsible  NDiViDUAL 

K.  J.  Euske 

ZZb  TELEPHONE  finc/ud*  Are*  Code) 
408-646-2860 

22t  OFFICE  SYMBOL 

54Ee 

00  FORM  1473,  84  MAR 


83  APR  pdition  mty  b«  Uicd  until  tiMtuttcd 
All  othtr  cdiliont  »re  obiolctt 
1 


security  classification  of  This  page 
UNCLASSIFIED 


SECUNITV  CLASSIFICATION  OF  THIS  FAOC  fUNan  DM  BRtM« 

19  ABSTRACT  (cont.) 


Retirement  System  Projection  and  Actuarial  Valuation  Program  (GORGO) 
developed  by  the  DoD  Actuary.  This  study  has  determined  that  the 
level  of  sophistication  of  the  GORGO  program  far  exceeds  that  of  the 
ENTRYAGE  model,  and  the  major  re-programming  effort  required  was  beyond 
the  scope  of  this  study.  However,  the  ENTRYAGE  model  was  not  user- 
friendly,  required  single-line  data  input,  and  would  "crash"  when  the 
operator  made  an  erroneous  data  entry.  Therefore,  the  ENTRYAGE  model 
was  extensively  revised  to  incorporate  menus,  prevent  program  crashes, 
present  results  in  page  format,  and,  in  general,  make  it  more  user- 
friendly  as  an  analytical  tool. 


•OPY  j 
.INSPECTfo  / 


S  N  0102-  LF-  014-  6601 


UNCLASSIFIED 

2  SKCUNITY  CLAMIFICATION  OF  THIS  FAOCfWhan  DM  Bnfnd) 


Approved  for  public  release;  distribution  is  unlimited. 


An  Interactive  Computer  Forecasting  Model 
to  Determine  the  Eflects  of  Policy  Changes  on 
the  Valuation  of  the  Military  Retirement  System 


by 


Peter  G.  Valko 

Lieutenant  Commander,  United  States  Navy 
B.S.,  Aero-Space  Institute,  1971 


Submitted  in  partial  fulfillment  of  the 
requirements  for  the  degree  of 


MASTER  OF  SCIENCE  IN  MANAGEMENT 


from  the 


NAVAL  POSTGR.ADUATE  SCHOOL 


Kneale  T.  Marshid^^^,»_ 
Dean  of  Information  and  Pou^^ttwi 


ABSTRACT 

In  the  past  thirty  years,  as  military  retirement  costs  have  climbed  from  l^o  of  the 
defense  budget  to  their  current  8°o  level,  the  military  retirement  system  (and,  in 
particular,  the  non-disability  retirement  component)  has  come  under  increasing 
criticism  and  scrutiny  by  the  Congress,  the  public,  and  the  news  media. 
Recommendations  from  previous  studies  of  the  militar>’  retirement  system  have 
proposed  various  modifications  to  the  system  to  alleviate  alleged  inequities  and 
inefficiencies,  and  to  reduce  costs.  A  BASIC-language  computer  model  (ENTRYAGE) 
was  developed  in  1983  as  part  of  a  thesis  to  perform  a  sensitivity  analysis  on  entrv’-age 
normal  retirement  cost  methods  to  evaluate  some  of  these  recommendations.  At  the 
request  of  the  Office  of  the  Assistant  Secretary  of  Defense,  an  effort  was  initiated  to 
revise  the  program  to  produce  results  that  replicate  those  of  the  Military  Retirement 
System  Projection  and  Actuarial  Valuation  Program  (GORGO)  developed  by  the  DoD 
Actuary.  This  study  has  determined  that  the  level  of  sophistication  of  the  GORGO 
program  far  exceeds  that  of  the  ENTRYAGE  model,  and  the  major  re-prograntming 
effort  required  was  beyond  the  scope  of  this  study.  However,  the  ENTRY.AGE  model 
was  not  user-friendly,  required  single-line  data  input,  and  w’ould  "crash'"  when  the 
operator  made  an  erroneous  data  entry.  Therefore,  the  ENTRYAGE  model  was 
extensively  revised  to  incorporate  menus,  prevent  program  crashes,  present  results  in 
page  format,  and,  in  general,  make  it  more  user-friendly  as  an  analytical  tool. 
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I.  BACKGROUND 


■"Ihc  (non-disability  retirement)  plan  proposed  is  basically 
a  penalty  provision  for  early,  voluntary  retirement. " 

William  1  rancis,  Asst.  SliCDCl'  (MP.R),  1958 


"The  non-disability  retirement  system  is  inenicient, 
inequitable,  and  costly." 

The  Interagency  Conunittce,  1971 

".Military  retirement.  .  .is  a  key  issue  that  has  to  he  faced. 
The  stakes  are  high;  the  financial  consequences  are  potentially 
greater  than  those  involved  in  the  major  debates  over  force 
levels  and  weapon  systems." 

Martin  Binkin,  The  Military  Pay  Muddle,  1975 


"The  military  retirement  system  is  wasteful  in  dollars  and 
human  resources." 


The  President  s  Commission  on 
.Military  Compensation,  1978 


"There  probably  is  no  other  retirement  system  which  is  as 
liberal  and  costly  as  the  L'.S.  Military  Retirement  System." 

Gra^e  Commission,  1984 


".  .  .(the  ntilitary  retirement  system).  .  .is  a  scandal;  it's 
an  outrage." 

David  Stockman,  Budget  Director,  O.MB,  1985 


A.  INTRODLCTION 

As  the  above  comments  indicate,  the  military  retirement  system  has  had  its  share 
of  critics  over  the  years.  Most  of  the  criticisms  leveled  at  the  military  retirement 
system  stem  from  a  few  basic  arguments:  (1)  non-disability  retirement  allows  military' 
personnel  to  retire  at  too  early  of  an  age;  (2)  retirement  benefits  (annuities)  arc  too 
liberal;  (3)  lack  of  vesting  until  20  years  of  service  makes  superiors  reluctant  to 
involuntary  separate  marginal  or  poor  performers  who  are  close  to  retirement;  and,  by 
far,  the  strongest  criticism,  (4)  the  military  retirement  system  just  costs  too  much. 
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The  present  military-  retirement  system  allows  a  service  member  to  receive  a  non¬ 
disability  retirement  after  20  years  of  active  duty  service  with  a  retirement  annuity  of 
50°  0  of  the  service  member's  final  basic  pay  (or  the  average  of  the  highest  three  years 
for  those  joining  the  Service  after  September  8.  1980).  This  annuity  increases  with 
additional  active  duty  service  so  that  a  retiree  with  30  years  or  more  of  service  will 
receive  75°/o  of  basic  pay.  Provisions  are  also  made  for  disability  and  reserve 
retirement,  as  well  as  an  optional  survivor  benefit  plan. 

The  costs  of  this  retirement  system  have  become  a  major  issue.  In  the  ten  years 
from  1973  to  1983,  the  number  of  retirees  paid  by  the  Department  of  Defense  (DoD) 
increased  43°o  from  935,272  to  1,333,360  individuals.  However,  for  this  same  period  of 
time,  DoD  e.xpenditures  for  the  military  retirement  system  grew  263°o  from  S4.4 
billion  to  SI 5.9  billion.  Looking  back  over  the  last  thirty  years  from  1953,  costs  have 
increased  almost  4,400°b  from  S356  million  while  the  number  of  military  personnel 
receiving  retired  pay  has  increased  only  about  800°o  from  155,892.  Retirement  costs, 
then,  have  grown  at  approximately  5  to  6  times  faster  than  the  retirement  rolls. 
Military  retirement  costs  currently  account  for  approximately  8°/o  of  the  defense 
budget. 

As  the  costs  have  increased,  the  militaiy-  retirement  system  (specifically,  the  non¬ 
disability  retirement  portion  which  accounts  for  over  eighty  percent  of  the  cost)  has 
come  under  closer  and  closer  Congressional,  public,  and  media  scrutiny.  To  reduce 
costs,  proposals  have  been  made,  inter  alia,  to  lower  annuities,  extend  the  minimum 
length  of  service  required  for  retirement,  and  delay  the  commencement  of  retired  pay 
until  55,  60,  or  62  years  of  age.  I  he  question  arises,  however,  if  the  proposed 
modifications  to  the  militaiy  retirement  system  will  produce  the  desired  results.  Will 
costs,  in  fact,  be  reduced?  What  efl'ect  will  reducing  non-disability  retirement  benefits 


have  on  new  accessions  and  retention,  on  recruiting  and  training  costs?  To  vshat 
extent  IS  the  retirenient  system  used  as  a  Ibrce  mangement  tool? 

Ihis  thesis  attempts  to  deal  with  these  issues.  In  order  to  provide  an 
ander'.t.ir.ding  of  tiow  the  current  retirement  system  came  to  be  established,  this  first 
sh.apter  contains  a  review  of  the  legislation  that  has  allected  military  retirement. 
.Additionally,  the  recommendations  ol'  previous  comnussions.  review  panels,  and  study 
groups  tb.at  have  dealt  with  military  retirement  issues  are  briefly  examined.  Subsequent 
chapters  deal  more  extens.vely  with  the  provisions  of  the  current  retirement  system  and 
the  costs  of  Its  component  parts,  finally,  a  computer  model  used  to  project  future 
retirement  costs  is  presented  and  discussed. 

B.  l.fCilSL.AllVf  HISIORVOF  fllE  MILIT.ARY  RETI RE.MENT  SYSTEM 

The  beginnings  of  the  military  retirement  system  in  the  United  States  date  back 
some  three  hundred  and  fifty  years.  In  16x6.  the  Pilgrims  at  Plymouth  Rock  provided 
that  any  soldier  bcconung  disabled  would  be  maintained  by  the  colony  for  the  rest  of 
his  life  [Ref  1:  p.  VlMl. 

The  first  national  pension  law  was  enacted  in  Ifb  and  provided  half  pay  for  life 
(or.  for  the  duration  of  the  disability)  for  disabled  soldiers.  Immediately  after  the 
Revolutionary  War  and  again  in  I'di).  legislation  was  passed  making  provisions  for 
disabled  nulitary  personnel:  olTicers  could  receive  up  to  one-half  of  their  pay.  while 
enlisted  personnel  could  receive  up  to  S.^  a  month  for  life.  Benefits  were  increased  for 
disabled  Revolutionary  War  veterans  in  ISIS  and  again  in  1832.  [Ref  1:  p.  Vll-Ij 

In  IS55,  legislation  was  passed  which  permitted  the  Secretaiy  of  the  Navy  to 
deternune  the  fitness  of  ofTicers  and  allowed  the  removal  of  those  olTicers  judged 
incapable.  Ihose  determined  to  be  incapable  were  removed  from  active  duty  with 
either  leave-of-absence  pay  (approximately  '5''o  of  sea-duty  pay)  or  furlough  pay  (50"o 


of  leave-of-absence  pay).  Though  the  main  purpose  of  this  legislation  was  to  remove 
old  and  physically  unfit  Naval  olTicers  from  active  duty,  the  law  could  also  be  used  to 
separate  officers  for  non-disability  reasons.  (Refs.  1.2:  p.  VTI-l.p.  145] 


The  first  major  non-disability  legislation  was  enacted  in  1S61  at  the  beginning  of 
the  Civil  War.  This  act  provided  for  the  voluntary  retirement  (at  the  discretion  of  the 
President)  of  regular  officers  of  all  branches  of  the  military  service  after  40  years  of 
active  duty.  The  purpose  of  this  legislation  was  to  allow  older  officers,  unfit  for  duty  in 
the  Civil  War,  to  retire.  Later  legislation  in  1861  and  1862  authorized  involuntary- 
retirement,  i.e.,  an  officer  could  be  forced  to  retire  upon  reaching  a  certain  age  or 
years-in-service  point.  However,  nothing  in  the  legislation  compelled  authorities  ^o 
take  such  actions.  [Refs.  1,2:  p.  VTI-2.p.  145] 

.After  the  Civil  War,  while  reducing  military-  forces  to  a  peacetime  level.  Congress 
passed  legislation  in  1870  which  established  two  lasting  precedents  for  the  ntilitary 
retirement  system:  (1)  .Army  and  Marine  Corps  officers  were  permitted  to  voluntary- 
retire  after  30  years  of  service  (YOS)  (upon  approval  of  the  President),  and  (2) 
retirement  pay  was  set  at  75°/o  of  the  officer's  final  pay.  (Though  the  75''b  pay- 
provision  applied  to  Army  and  Marine  Corps  officers  only,  subsequent  legislation  in 
1873  included  Naval  officers).  Enlisted  personnel  were  covered  by  legislation  that  was 
enacted  in  1885,  1899,  and  1907.  The  benefits  that  were  provided  closely  followed 
those  for  officers,  i.e.,  voluntary  retirement  after  30  years  of  service  and  75”-o  of  final 
pay.  Legislation  in  1908  authorized  the  voluntary-  retirement  of  Navy  officers  after  30 
years  of  service.  [Refs.  1,2:  p.  VI 1-2, p.  146} 

In  1916,  legislation  was  again  passed  that  had  long-lasting  effects  on  the  military- 
retirement  system.  Due  to  promotion  stagnation  in  the  officer  ranks  of  the  Navy-  as  a 
result  of  World  War  I,  selection  boards  were  established  for  promotion  to  Commander. 
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Captain,  and  Rear  Admiral  on  the  basis  of  age-in-grade.  Lieutenant  commanders, 
commanders,  and  captains  who  reached  age  45,  50.  and  56.  respectively,  without  being 
selected  for  promotion,  became  ineligible  for  further  consideration  and  had  to  be 
retired.  .An  ofTicer  so  retired  was  entitled  to  retired  pay  of  2.5®  o  of  basic  pay  for  each 
year  of  service,  up  to  a  maximum  of  75® b  of  pay.  Thus,  the  "up-or-out”  officer 
selection  process  was  established.  Also  included  in  this  legislation  was  the  creation  ot 
the  Fleet  Naval  Reserve  for  Navy  and  Marine  Corps  enlisted  personnel.  The  purpose 
of  this  was  to  create  a  pool  of  experienced  personnel  who  could  be  recalled  to  active 
duty  in  an  emergency.  Though  "transferring"  to  the  Fleet  Reserve  was  technically 
different  than  "retiring",  it  basically  allowed  enlisted  personnel  to  leave  the  Navy  and 
Marine  Corps  with  as  little  as  16  years  of  service  (later  raised  to  20  VOS  in  1925)  and 
"retire'  with  "retainer"  pay.  [Refs.  1,2;  p.  VIl-3,pp.  147  &  150] 

.After  World  War  I.  the  Navy  was  again  having  officer  stagnation  promotion 
problems.  .As  a  result,  legislation  was  passed  which:  (I)  replaced  the  age-in-grade 
program  with  one  based  on  serv'ice-in-grade  for  for  grades  Commander  through 
Captain,  with  break  points  of  21,  28.  and  35  years,  respectively  (passed  in  1926);  (2) 
extended  the  selection  boards  for  promotion  to  Lieutenant  and  Lieutenant  Commander 
(passed  in  1934);  and  (3)  provided  for  voluntary  retirement  of  Naval  officers  after  20 
years  of  commissioned  service,  at  the  discretion  of  the  President  (passed  in  1938). 
[Refs.  1.2:  p.  VH-d.p.  148] 

Legislation  passed  after  World  War  11  brought  standardization  to  the  military- 
retirement  provisions  of  the  various  branches  of  the  Service.  In  1945,  voluntary- 
retirement  after  20  years  of  service  was  authorized  for  .Army  enlisted  personnel.  In 
1946,  legislation  was  enacted  which  permitted  Navy  and  Marine  Corps  officers  to 


voluntarily  retire  after  20  years  of  active  service*  (including  at  least  10  years  of 
conunissioned  service).  Finally,  Army  and  Air  Force  officers  were  authorized  voluntary 
retirement  after  20  years  of  active  service  (including  10  years  of  commissioned  service) 
in  1948.  .Mso  during  this  period,  the  "up-or-out"  officer  selection  promotion  process 
was  standardized  (1947).  [Refs.  1,2;  p.  Vll-6,pp.  148-150] 

During  the  1950's  through  1970's,  the  military  retirement  system  remained 
relatively  unchanged.  Provisions  for  a  specific  retirement  system  for  warrant  officers 
were  passed  in  1954.  Legislation  was  passed  in  1958,  1963,  1975,  and  1976  that  made 
changes  in  the  method  of  recomputing  retirement  pay  for  cost-of-living  adjustments. 

The  early  1980's  followed  the  trend  of  the  last  thirty  years.  Legislation  enacted 
in  1980,  1981,  1982,  and  1983  all  dealt  with  adjustments  to  retirement  pay:  retired  pay 
was  to  be  adjusted  only  once  a  year  and  tied  to  Civil  Service  increases  (passed  in  1980); 
final  basic  pay  was  replaced  by  "retainer"  pay  (which  was  the  average  of  the  last  3 
years  of  basic  pay)  as  the  basis  for  retirement  annuities  (passed  in  1980);  an  annual 
adjustment  based  on  the  percentage  increase  in  the  Consumer  Price  Index  (CPI)  was 
established  (passed  in  1981);  a  three-year  "ceiling"  was  placed  on  CPI  adjustments  for 
fi..cal  years  1983-1985^  (passed  in  1982);  and  the  "one-year  look-back"  save  pay 
feature^  was  repealed  (passed  in  1983).  Table  I  provides  a  summary  of  the  legislation 
that  has  been  discussed.  [Refs.  1,2:  pp.  VII-7  &  VII-8,p.  149] 

*The  legislation  passed  in  1938  allowed  Naval  officers  to  retire  after  20  years  of 
commissioned  service,  while  the  legislation  passed  in  1946  allowed  Navw  and  Marine 
Corps  officers  to  retire  with  20  years  of  loial  active  service,  only  10  years  of  which  were 
required  to  be  commissioned  service. 

“CPIs  of  3.3,  3.6,  and  3.3  percent,  were  set  for  FY83-FY85,  respectively. 

^The  save  pay  feature  allowed  a  service  member  to  "look  back"  one  preceding 
basic  pay  scale  to  compute  retired  pay,  increased  by  any  retired  pay  adjustments  that 
occurred  in  the  interim.  This  method  was  advantageous  when  the  rate  of  retired  pay 
adjustments  exceeded  increases  to  basic  pay. 


TABLE  I 


SUMMARY  OF  MILITARY  RETIREMENT  LEGISLATION 


DATE  ACTION 

1855  Authorized  Involuntary  removal  of  Navy  officers  from  active  list  for 

disability  and  other  reasons. 

1861  Authorized  voluntary  retirement  of  officers  of  all  Services  after  40 

years  of  service >  at  the  discretion  of  the  President. 

1861  Permitted  involuntary  retirement  of  Navy  officers  after  45  years  of 
service  or  at  age  62. 

1862  Permitted  involuntary  retirement  of  Army  and  Marine  Corps  officers  after 
45  years  or  at  age  62. 

1870  Authorized  voluntary  retirement  of  Army  and  Marine  Corps  officers  after 
30  years  of  service >  at  the  discretion  of  the  President.  Retirement  pay 
for  Army  and  Marine  Corps  officers  was  set  at  75X  of  final  pay  and  at 
SO/i  for  Navy  officers. 

1878  Raised  the  Navy  officer  retirement  rata  to  75X  of  sea  duty  pay, 

1882  Hade  retirement  mandatory  at  age  64  for  officers  of  all  Services.  Also 

gave  officers  a  nondiscretionary  right  to  voluntary  retirement  after  40 
years  of  service.  (Earlier  law  had  authorized  voluntary  retirement*  but 
had  given  the  President  the  power  to  grant  or  deny  such  a  retirement. ) 

1885  Authorized  voluntary  retirement  of  Army  and  Marine  Corps  enlisted 

personnel  after  30  years  of  service.  Retired  pay  was  set  at  75K  of  a 
member's  pay*  plus  an  allowance  in  lieu  of  quarters*  fuel*  and  light. 

1899  Authorized  voluntary  retirement  of  Navy  enlisted  personnel  after  30 

years  of  service.  Established  the  "promotion  flow”  retirement  program 
for  Navy  officers. 

1907  Consolidated  the  30-year  voluntary  retirement  authority  for  the  enlisted 
personnel  of  all  branches  of  the  Services  into  one  status . 

1908  Authorized  voluntary  retirement  of  Navy  officers  after  30  years  of 

service. 

1916  Created  Fleet  Reserve.  Authorized  voluntary  transfer  of  Navy  and  Marine 
Corps  enlisted  personnel  to  Fleet  Reserve  after  16  years  of  active 
service. 

1916  Established  "up-or-out"  promotion  system  based  on  age-in-grade  and 

integrated  involuntary  retirement  system.  First  to  use  "standard" 
retired  pay  formula  of  2.5X  times  years -of -service*  up  to  maximum  of 
75Z. 

1920  Provided  for  classification  of  Army  officers  and  authorized  Involuntary 
retirement  of  those  designated  "Class  8"  (i.e.*  inefficient 

performance). 


TABLE  I 


SUMMARY  OF  MILITARY  RETIREMENT  LEGISLATION  (cont'd.) 


E  ACTION 

Z  Authorized  involuntary  retirement  of  Army  officers  chosen  for 

elimination  from  active  list  by  board  officers. 

5  Raised  minimum  len^th'Of-service  required  by  Navy  and  Karine  Corps 
enlisted  personnel  for  eligibility  for  transfer  to  Fleet  Reserve  from  16 
to  ZO  years. 

6  Changed  integrated  Navy  officer  promotion/involuntary  retirement  system 
from  age-in-grade  to  service~in-grada  progrM. 

^  Kade  Marine  Corps  officers  subject  to  Navy  rather  than  Army  retirement 
laws.  Brought  them  under  Navy's  promotion/involuntary  retirement  system. 
Extended  the  Navy's  officer  selection  program  to  promotion  to  0-4  and 
0-3. 

5  Authorized  voluntary  retirement  of  Army  officers  after  15  years  of 

active  service. 

3  Revised  the  Navy's  officer  selection  and  retirement  processes.  0-4 's  to 
0-6 's  who  had  twice  failed  of  selection  for  promotion  were  involuntarily 
retired  after  Z6>  Z8i  and  30  years  of  service*  respectively.  Also 
authorized  the  voluntary  retirement  of  Navy  officers  after  ZO  years  of 
commissioned  service*  at  the  discretion  of  the  President. 

5  Authorized  voluntary  retirement  of  Army  enlisted  personnel  after  ZO 

years  of  active  service. 

6  Authorized  voluntary  retirement  of  Navy  and  Marine  Corps  officers  after 
ZO  years  of  active  service*  including  10  years  of  commissioned  service. 
Lowered  mandatory  retirement  age  from  64  to  6Z  for  such  officers. 
Temporarily  authorized  their  involuntary  retirement  if  chosen  for 
elimination  from  active  list  by  board  of  officers. 

7  Created  Department  of  Air  Force.  Kade  Army  retirement  laws  applicable  to 
Air  Force  personnel. 

7  Established  integrated  promotion/involuntary  retirement  system  for 

officers  of  all  Services. 

3  Established  retirement  system  for  career  personnel  of  Reserve  and 

National  Guard.  Authorized  voluntary  retirement  of  Air  Force  and  Army 
officers  after  ZO  years  of  active  service*  including  10  years  of 
commissioned  service.  Repealed  15-year  voluntary  retirement  authority 
enacted  in  1935. 


Established  specific  retirement  system  for  warrant  officers  of  services. 


TABLE  I 


SUMMARY  OF  MILITARY  RETIREMENT  LEGISLATION  (corn'd.) 


DATE  ACTION 

1953  Suspended  "reconputation"  method  that  primarily  had  been  used  to  make 
post-retirement  adjustments  to  retireed  pay  since  origin  of  Service 
retirement  system. 

1963  Replaced  recomputation  method  of  retired  pay  adjustment  procedure  based 
on  increases  in  cost-of -living. 

1975  Provided  that  the  monthly  retired/retainer  pay  of  those  who  became 
entitled  to  that  pay  on  or  after  1  Jan  1971  may  not  be  less  than  it 
would  have  been  had  the  member  become  entitled  to  such  pay  of  an  earlier 
date  in  that  member's  career  (Tower  Amendment). 

1976  Eliminated  the  one  percent  add-on  and  established  a  semi-annual 
adjustment  mechanism  effective  March  1st  and  Sept.  1st  of  each  year. 
Percentage  adjustment  determined  on  CPI  percentage  increase  from  June  to 
December  and  December  to  June>  respectively  (Chiles  Amendment). 

1930  Deleted  the  semi-annual  mechanism  and  directed  that  retired  pay  be 

adjusted  at  the  same  time  and  by  the  same  percentage  as  Civil  Service 
pensions#  contingent  on  annual  mechanism  being  established  for  retired 
Civil  Service. 

1980  Replaced  use  of  terminal  basic  pay  with  monthly  retired  or  retainer  pay 
base  (average  of  highest  three  of  basic  pay)  for  determining  retired  or 
retainer  pay  entitlements. 

1981  Established  an  annual  adjustment  mechanism  for  retired  Civil  Service 
employees  and  activated  a  similar  feature  for  retired  military  service 
members#  effective  on  March  1st  of  each  year#  as  determined  by  the 
percentage  Increase  in  CPI  from  December  to  December  of  each  year. 

1982  Placed  a  three-year  limitation  on  CPI  adjustments  during  FYSS  to  PY85# 
and  slipped  the  effective  date  one  month  during  each  year  (April#  May# 
June)#  respectively.  Members  age  62  or  older#  or  disabled#  receive  full 
CPI  percentage  adjustments.  Members  under  age  62  receive  one-half 
"assumed  CPI"  (3.3#  3.6#  3.3  for  FY83#  FY84#  FY85#  respectively)#  plus 
the  actual  CPI  percentage  increase. 

1983  Repealed  the  "one-year  look-back"  save  pay  feature  for  the  calculation 
of  initial  amounts  of  retired/retainer  pay#  but  (1)  created  a  3-year 
extension  for  those  eligible  to  retire  on  24  Sept.  1983  to  use  the  "look 
back"  feature#  and  (2)  ensured  that  retired/retainer  pay  may  not  be  less 
that  what  it  would  have  been  during  the  3-year  period  for  members 
eligible  to  retire  on  24  Sept.  1983.  Provided  that  gross 
retired/retainer  pay  be  rounded  to  the  next  lower  dollar  amount. 
Provided  that  years-of -service  credltatlon  for  calculation  purposes  be 
based  on  1/12  of  a  year  for  each  full  month  served.  This  terminated  the 
six-month  rounding  rule  for  computing  retired/retainer  pay. 


C.  REVIEW  OF  MILITARY  RETIREMENT  SYSTEM  STUDIES 


1.  Hook  Commission  ( 1 94S) 

The  Hook  Commission  (Advisorv-  Commission  on  Service  Pay)  in  1948  was 
the  first  major  study  of  the  entire  militar\-  compensation  system  conducted  after  World 
War  II.  The  Commissions  recommendations  provided  the  basis  for  the  Career 
Compensation  Act  of  1949.  This  legislation  enacted  provisions  which  set  the 
framework  for  the  current  system  of  basic  compensation,  and  Special  and  Incentive 
pays.  In  regards  to  nulitar}'  retirement,  the  Conmussion  recommended:  (1)  that  the 
system  should  be  non-contributory;  (2)  voluntary  retirement  with  20  years  of  service  at 
age  60  (for  olTicers;  for  enlisted  personnel  this  would  drop  down  to  age  50)  or  at  anv 
age  with  30  years  of  service;  (3)  that  there  was  no  need  to  accumulate  a  fund;  (4)  that 
mandatory-  retirement  for  officers  be  no  lower  than  age  60;  (5)  that  severence  pay  be 
paid  to  those  who  are  involuntary  separated;  and  (6)  retirement  pay  be  2.5"o  of  basic 
pay  multiplied  by  the  years  of  service,  not  to  exceed  75'’o.  [Ref  3] 

2.  Senate  Subcommittee  Hearings  {I95S) 

Though  not  the  results  of  a  formal  study,  recommendations  to  change  the 
nulitary  retirement  system  only  for  senior  officers  were  presented  by  the  .Assistant 
Secretary  of  Defense  (Manpower.  Personnel,  and  Reserves).  William  Francis,  to  the 
195.S  Senate  Subcomnuttee  Hearings  on  military  pay  matters.  Mr.  Francis  presented  a 
plan  whereby  the  normal  retirement  points  for  senior  officers  would  be  established  as 
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This  plan  was  proposed  in  response  to  the  exodus  ot  young  colonels  in  the  Air  horce 
with  20  years  of  service.  [Ref  4] 

3.  Gorman  Committee  Randall  Panel  [1962) 

The  Gorman  Committee  was  a  comprehensive  study  of  the  Service 
compensation  system.  No  final  report  was  ever  issued;  however,  its  findings  were 
reviewed  and  (for  the  most  part)  approved  by  the  Randall  Panel.  This  led  to  the 
second  largest  Service  pay  raise  in  modern  times  (the  largest  was  in  liscal  year  14S2). 
.■\  major  recommendation  of  this  study  that  was  enacted  into  law  was  to  base 
adjustments  to  Service  retired  pay  on  the  CPI  rather  than  on  changes  in  basic  pay  of 
active  duty  personnel.  [Ref  1:  p.\TI-l6| 

4.  First  QRMCi  196^) 

Title  s':,  I'.S.  Code,  Section  ItMJSh.  required  the  President  to  initiate  a 
quadrennial  review‘d  of  military  compensation,  and  to  submit  a  comprehensive  report 
to  Congress.  The  First  Quardrennial  Review  of  Military  Compensation  (First  QR.MC.T 
was  convened  in  December  1966.  with  the  report  published  in  November  196".  The 
major  recommendations  of  this  First  QRMC  were:  (1)  a  career  force  member  should  be 
fully  paid  in  taxable  cash,  i.e.,  a  'military  salary,'  with  deductions  for  taxes  and  any 
subsistence  housing  furnished;  (2)  a  career  service  member  would  contribute  6.5" o  of 
his  salary  to  a  retirement  account  and  have  a  vested  equity  in  this  contribution;  (3) 
adoption  of  a  two-step  annuity  plan  where  the  retiree  begins  drawing  Step-1  pay 
percentages  (24%  at  20  years  of  service  to  ()0”o  at  40  years  of  service)  immediately 
upon  leaving  the  Service,  and  graduating  to  Stcp-2  pay  percentages  (33'’'>  at  2')  years 


■^  fhere  have  been  five  quadrennial  reviews  conducted  to  date.  I  hree  ot  the 
reviews,  the  first  third  Fifth,  dealt  with  military  retirement  and  are  discussed  in  this 
thesis.  The  remaining  two.  the  Second  f  ourth,  did  not  address  military  retirement  and 
are.  therefore,  not  included. 


of  service  to  75*^0  at  40  years  of  ser\'ice)  at  age  55  to  age  60,  depending  upon  length  of 
service  at  retirement:  (4)  integration  with  Social  Security,  with  military  retirement 
annuities  to  be  offset  by  50" o  of  social  security  beefits;  and  (5)  military  retirement 
annuities  to  continue  to  be  protected  by  CPI  adjustments.  [Ref  5:  pp.  S12-S20, 
wi-xviii.  3-1  to  5-5] 

5.  Interagency  Committee  (1971) 

The  Interagency  Committee  (lAC)  on  L'niformed  Services  Retirement  and 
Survivor  Benefits  (1971)  proposed  extensive  reform  of  the  non-disability  retirement 
system.  The  Committee  s  recommendations  were  intended  to  decrease  costs,  improve 
the  elficiency  and  elTectiveness  of  the  system  as  a  management  tool,  and  to  reduce 
some  of  the  system's  inequities.  The  major  recommendations  included;  (1)  a  reduced 
annuity  for  retiring  earlier  than  age  60  with  20-24  years  of  service,  or  at  age  55  with  30 
or  more  years  of  service;  (2)  a  three-step  annuity  plan  of  2.5®  o  for  1-24  years  of  service. 
3®o  for  25-30  years  of  service,  and  2%  for  31-35  years  of  service;  (3)  vesting  at  10  years 
of  service:  and  (4)  a  lump  sum  severance  pay  for  involuntary  separation  after  5  years  of 
service.  [Ref  1:  p.  \TI-16] 

6.  DoD  Retirement  Study  Group  (1972) 

The  DoD  Retirement  Study  Group  (1972)  was  formed  to  review  the 
recommendations  of  the  Interagency  Committee  (lAC).  The  results  of  this  study 
group  took,  the  form  of  the  proposed  Retirement  Modernization  Act  (RMA), 
legislation  that  was  never  passed.  The  RMA  proposed  a  two-step  annuity  plan  (2.5®o 
for  1-24  years,  3®/o  for  25-30  years)  which  would  be  reduced  by  15  percentage  points 
for  retirement  with  less  than  30  years  of  service.  The  reduction  would  be  lifted  when 
the  retiree  reached  the  point  where  he  would  have  had  30  years  of  service.  The 
proposed  .Xct  also  provided  vesting  at  10  years  of  service  and  severance  pay  after  5 
years  of  service.  [Ref  1:  p.  VH-16j 
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7.  Third  ORMC  {1975-1976) 

The  Third  Quadrennial  Review  of  .\Iilitar\’  Compensation  (Third  QRMC) 
took  a  comprehensive  look  at  the  entire  militarv’  compensation  system.  Though  ten 
volumes  wer  published  in  1976  that  contained  research  and  background  papers,  no 
linal  report  was  ever  issued.  The  recommendations  of  the  Third  QR.MC  included:  (1) 
comparability  with  Civil  Service  should  be  the  standard  for  establishing  pay;  (2)  the 
militar}-  pay  and  allowances  system  should  be  modernized;  and  (3)  the  previously 
discussed  Retirement  Modernization  Act  should  replace  the  present  retirement  system. 
[Ref  2;  p.  VH-17) 

S.  Defense  Manpower  Commission  {1974- 1976) 

The  Defense  .Manpower  Commission  (DMC)  was  created  by  Congress  to 
study  a  large  number  of  defense  manpower  issues,  only  one  of  which  was  military- 
compensation.  Its  report  published  in  1976  recommended  a  conversion  to  a  salary- 
system  (versus  one  of  base  pay.  allowances,  and  incentives)  and  a  revised  retirement 
plan.  The  proposed  retirement  plan  would  allow  a  service  member  to  ''earn"  retirement 
points  for  each  year  of  service;  1  point  for  each  year  in  a  non-combat  job,  1.5  points 
for  each  year  in  a  combat  job.  A  service  member  could  retire  between  20  and  30  years 
of  service  when  30  points  were  accumulated,  and  receive  an  annuity  of  2.67°-o  per 
retirement  point  multipled  by  the  highest  three  years  of  basic  pay.  (Example:  22  years 
non-combat  service  equals  22  points  and  4  years  of  combat  service  equals  8  points.  22 
+  8  =  30  points.  30  x  2.61%  =  80”'o.)  This  meant  that  for  service  members  with  no 
combat  time,  a  full  30  years  of  service  must  be  served.  [Ref  1:  p.  Vll-lOj 
9.  President' s  Commission  on  Military  Compensation  { 1977- 1978) 

In  1977,  President  Tarter  established  his  President's  Comn-iission  on  Military- 
Compensation  (also  referred  to  as  the  Zwick  Con-imission),  and  tasked  them  with 
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reviewing  "at  least  the  analyses,  findings,  and  recommendations  related  to  militar\’ 
compensation  which  have  been  completed  by  the  Quadrennial  Reviews  of  Military- 
Compensation,  the  Comptroller  General,  the  Interagency  Committee,"  and  others.  The 
Commission  was  tasked  with  making  recommendations  on  a  wide-range  of  military- 
compensation  issues.  Inter  alia,  the  Conunission  was  to  identify-  the  purposes  of  the 
nuluary  retirement  system,  determine  if  the  present  system  was  effective,  and  to 
recommend  appropriate  changes.  The  Conunission  recommended  a  retirement  system 
that  provided  retired  annuities  with  as  few  as  10  years  of  service.  However,  the 
annuities  could  not  be  collected  until  age  55  for  30  or  more  years  of  service,  age  60  for 
20-29  years  of  service,  or  age  62  for  10-19  years  of  service.  A  change  from  a  level 
multiplier  to  a  three-step  multiplier  was  also  reconunended:  2.00*’ o  for  1-5  years  of 
service,  2.25'^')  for  6-10  years  of  service,  and  2.75“ o  for  11-35  years  of  service.  Other 
reconunendations  included  a  "high-three  average"  instead  of  final  basic  pay  to  compute 
the  retirement  annuity;  reduction  in  military-  retirement  pay  when  social  security- 
benefits  commenced;  adjustment  of  annuities  through  the  use  of  a  CPI  change;  and  the 
establishment  of  a  deferred  compensation  trust  fund  for  each  member  after  5  years  of 
service.  [Ref  6:  pp.  62-70]  DoD  modified  the  Conunission's  retirement  proposal  and 
submitted  It  to  Congress  in  1979  as  the  Uniformed  Serv'ices  Retirement  .Act  (USRBA). 
No  action,  however,  was  taken  by  Congress.  [Ref  1:  p.  VI I- 17] 

10.  President  s  Private  Sector  Survey  on  Cost  Control  [1983) 

The  President's  Private  Sector  Survey  on  Cost  Control  (PPSS),  more  widely- 
known  as  the  Grace  Commission,  was  formed  to  identify-  and  suggest  remedies  for 
waste  and  abuse  in  the  Federal  government.  The  military-  retirement  system  was 
identified  as  an  area  in  which  cost  savings  could  be  realized.  The  proposed  changes  to 
the  n-iilitary-  retirement  system  called  for:  (1)  no  voluntary  retirement  before  age  55;  (2) 
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age  62  to  be  the  earliest  retirement  age  to  receive  unreduced  retirement  benciits;  (3) 
reduced  pension  benefits  between  age  55  and  age  62;  (4)  a  change  in  the  earnings  base 
from  high-3  to  high-5  average;  (5)  a  reduction  in  the  annuity  multiplier  to  1.3".)  of 
Basic  .\Iilitar}'  Compensation  (BMC)  per  year  of  service  (BMC  is  the  sum  of  basic  pay. 
basic  allowance  for  quarters,  basic  allowance  for  subsistence,  and  the  tax  advantage 
gained  by  receiving  tax-free  allowances);  (6)  vesting  after  10  years  of  service;  C)  a 
decrease  in  CCL.A  increases;  and  (S)  the  integration  of  the  military  retirement  system 
wirh  Social  Security.  [Ref.  3']  Though  mention  was  made  that  the  militarx'  retiiement 
system  is  used  as  a  personnel  management  tool,  the  PPSS  believed  it  to  be  of  little 
\alue.  It  appears  from  the  nature  of  the  proposed  recommendations  that  they  were 
selected  solely  on  the  basis  of  cost  reduction,  and.  in  fact,  did  not  consider  ma-power 
force  requirements  of  the  militarx'  services.  [Ref.  1:  p.  VI  I- 17] 

II.  Fuih  QRMC  {19S2.19S4) 

Finally,  in  the  fall  of  1982.  the  Fifth  Quadrennial  Review  of  Military 
Compensation  (Fifth  QRMC)  was  organized  to  assess  the  extent  to  which  the  existing 
militaiy  retirement  and  special  incentive  pay  systems  contribute  to  our  national 
defense.  Contrasted  to  the  Grace  Commission's  strictly  "cost-reduction"  view  of  the 
military  '•etirement  system,  the  Fifth  QRMC  evaluated  the  military  retirement  system 
from  the  perspective  of  how  it  supported  and  complemented  the  manpower  force 
management  requirements  of  the  military  Services.  The  findings,  recommendations, 
and  supporting  documentation  of  the  retirement  system  portion  of  live  study  were 
published  in  five  volumes  in  early  1984.  In  order  to  strengthen  the  nulitaiy  re'Tement 
system,  the  Fifth  QR.MC  recommended  that  consideration  be  given  to  modilying  the 
system  with  one  of  four  alternatives  that  recommended  combinations  of  reduced 
multipliers  and  COLAs  for  early  (less  than  3<>  years)  retirement.  I  he  Review  further 


recommended  that  the  system  should  be  "grandfathered."  remain  non-contnhutory.  not 
be  explicitly  integrated  with  social  security  (i.e.,  no  offset),  and  that  vesting  should 
remain  at  20  years  of  service.  [Ref  1:  pp.  1-35  &  1-36] 

D.  SUMMARY 

The  reviews  of  the  legislative  history  and  various  studies  of  the  military 
retirement  system  establish  that  the  system  is  not  solely  an  old-age  pension  system. 
Rather,  it  is  an  integral  part  of  total  ntilitary  compensation  which  has  been,  and  should 
continue  to  be.  used  as  a  force  management  tool.  .As  the  Fifth  QRMC  stated,  any 
modification  to  the  retirement  system  should  'be  proposed  in  a  legislative  form  that 
recognizes  the  absolute  requirement  for  an  integrated  proposal,  and  that  subsequent 
fragmenting  of  the  modification  could  negate  the  resultant  force  structure  and  thus 
cause  the  modification  ■  a  fail  its  intended  purpose"  [Ref  1;  p.  1-35).  .Any  modifications 
to  the  retirement  system  must  consider  this  tie-in  between  the  retirement  system  and 
force  management,  and  potential  spill  over  elfects.  Dollars  that  are  saved  by  reducing 
benefits  to  retirees  could  be  needed  to  pay  for  increased  recruiting,  training,  and 
retention  costs. 
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n.  AN  ECONOMIC  COMPARISON  AND  EVALL  ATION 


A.  IMRODLCTION 

As  inennoned  above,  military  retirement  cost*;  lor  li'-v.al  \ear  amounted  to 
''15,9  billion  and  accounted  for  approximately  S"..  ol  all  deien'-e  spending.  The  costs 
ol'this  retirement  s\<;tem  are  projected  b\  the  Dol)  niliee  ol  the  Actuars  to  reach  over 
''4,^  billion  in  liseal  sear  [Ref.  S:  p.  21|.  In  th.;''  ^liapier  tiie  component  parts  of' 

the  current  military  retirement  s'. ''tern  are  dc'cribed.  and  th.e  cO'-ts  d  prosiding  these 
beneiits  are  examined.  Mihtarc  retirement  outiac''  are  compared  to  the  Ciross  National 
Product  AiNl'i  and  other  portions  ol  tiie  1  ederai  budget.  I  he  results  of  analyses 
perlormed  during  tlie  1  il'th  Quadrennial  Re'.ie'.v  on  Militarc  Compensation  arc 
presented 

B.  DTSCRIPIION  Ol'  HIT  (  TRRTM'  RI  ITRTMTNr  .S'lSTTM 

The  current  military  retirement  scstem  is  comprised  of  four  distinct,  but 
in  ter- related  components: 

•  A  non-disability  svstern  for  service  personnel  'either  Regular  or  Rcsersists)  who 
may  retire  from  active  duty  after  at  least  do  vears  ol  service  ino  age  linutations). 

•  A  non-disabilitv  svstern  for  drill  reservists  vvlio  have  completed  at  least  20  vears 
of  creditable  service  for  retirement  purposes.  1  hesc  personnel  mav  retire  at  ace 
60. 

•  A  disability  system  for  service  members  either  temporarily  or  permanently 
disabled. 

•  A  Survivor  Benefit  Program  (SBP). 

After  20  years  of  active  duty,  a  service  member  is  eligible  for  immediate 
non-disability  retirement  annuities.  1  he  service  members  retirement  pay  is  equal  to 
years-of-service  (VOS)  times  a  multiplier  (2.,^"..i  times  final  basic  pay.  (Tor  those 


entering  the  Services  after  September  8.  1980,  the  pay  base  used  is  high-3  average 
instead  of  final  pasic  pay.)  .A  ma.ximum  of  75“ o  of  base  pay  may  be  received. 
Cost-of-living  adjustments  to  retired  pay  are  based  upon  the  Consumer  Price  Index 
(CPI).  (Refs.  1,8:  pp.  VM  to  VI-3.pp.  1  &  2] 

Non-disability  reserve  retirement  provisions  closely  follow  those  of  non-disability 
active  duty  retirement.  Two  distinct  differences  are  involved,  however; 

•  ^'ears  of  equivalent  service  are  earned  by  receiving  creditable  days  ("points  ")  I'or 
active  duty,  lull-time  Reserve  service  during  annual  training,  drill  periods,  and 
membership  in  a  Reserve  component. 

•  Though  a  service  member  may  retire  from  the  Reserves  any  time  after  20 
creditable  vears  are  earned,  retirement  pav  does  not  begin  until  age  60  [Refs.  1,8: 
VI-7  &  VNS.p.  3)]. 

Disabilitv  retirement  is  provided  to  service  members  unable  to  perform  their 
duties.  Disability  retirement  qualification  and  amount  of  pay  are  determined  by  length 
of  service,  disability  percentage  (from  a  Veterans  .Administration  rating  system),  cause 
of  the  disability,  and  service  member's  basic  pay.  The  disabled  service  member  receives 
retired  pay  based  upon  the  most  advantageous  level  of  benefit.  [Refs.  1,8:  pp.  VI-8  & 
VI-O.pp.  2  &  3)1 

The  Survivor  Benefit  Program  (SBP)  is  an  optional  program  that  provides  income 
to  surviving  families  of  service  members  who  die  in  retirement  or  on  active  duty  after 
reaching  eligibility.  Service  members  elect  a  percentage  of  their  gross  retired  pay  to  be 
provided  to  their  survivors,  and  give  up  a  portion  of  their  retirement  annuity  in  return, 
f  his  is  the  only  portion  of  the  military  retirement  system  where  service  members 
explicitly  share  the  costs  of  the  system  with  the  government.  [Ref  8:  pp.  3  &  4| 

Table  III  presents  the  number  of  retired  personnel  and  retirement  costs  broken 
down  by  component  parts  for  fiscal  years  1979  to  1983.  Each  component  as  a 
percentage  of  total  retirement  and  SBP  costs  has  remained  relatively  constant  during 


*■  "a  l"«*'  *  *• 
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TABLE  II 


COMPONENTS  OF  THE  MILITARY  RETIREMENT  SYSTEM 

(Dollar  anounts  In  billions  of  $1 


FY79 

FY80 

FY81 

FY82 

FY83 

Non-disability 

ratiraas 

Active  duty 
Nun  bar 
Ratirenent 

pay 

974,659 

$  a. 41 
(81. ax) 

1,000.685 

9  9.77 
(82.0;<) 

1,019,970 

911.24 

(81.9X) 

1,038,084 

912.23 

(81.9X1 

1,052,153 

913.04 

(81.9X1 

Drill  rasarvists 
Number 

Ratiranant  pay 

101.490 

9  .58 

(5.6X) 

112,744 

9  .69 

IS. ay.) 

123,278 

9  .85 

(6.2X1 

133,244 

9  .96 

(6.4X1 

141,199 
9  1.06 
(6.7X1 

Disability  ratiraas 

Nun bar 

152,365 

151,096 

145,714 

142,105 

140,008 

Ratiranant  pay 

9  1.09 

9  1.20 

9  1.30 

9  1,36 

9  1.38 

(10.6X1 

(10.1X1 

(9.5X1 

(9.1X1 

(8.6X1 

Surviving  fanilias 

Nun bar 

57,821 

65,625 

74,170 

77,546 

85,521 

SBP  paynants 

9  .20 

9  .26 

9  .33 

9  .39 

9  .45 

( 1 . 9X 1 

(2.2X1 

(2.4X1 

(2.6X1 

(2.8X1 

Total 

Number 

1,286,315 

1,330,150 

1,363,132 

1,390,779 

1,418,881 

Expandituras 

910.28 

911.92 

913.72 

914.92 

915.93 

(Data  was  obtainsd  from  the  DoO  Statistical  Raports  on  the 
Military  Retireaont  Syatsa,  FY197?  to  FY198S.  ) 


these  years:  active  duty  non-disability  retired  pay.  SZ^'o;  drill  reservists  non-disability 
retired  pay,  6-'°o;  disability  retired  pay,  9-1  l^o;  and  SBP,  2-3°o.  (As  a  percentage  of 
total  costs,  there  are  slight  increases  for  dnll  reservists  non-disability  and  SBP,  and  a 


slight  decrease  for  disability  retirees.)  Since  the  active  duty  non-disability  retirement 
portion  accounts  for  the  majority  of  the  cost  of  the  system,  it  logically  follows  that  if 
modifications  are  to  be  made  to  the  retirement  system  in  an  effort  to  reduce  costs,  then 
this  portion  of  it  would  undoubtedly  produce  the  greatest  cost  savings. 
[Refs.  9,10,11,12,13;  p.  13.p.  13,p.  13,p.  16.p.  16] 

Prior  to  fiscal  year  1985,  the  military  retirement  system  was  an  unfunded  or 
"pay-as-you-go"  system.  This  funding  method  charges  future  generations  of  tax  payers 
for  services  rendered  by  the  military  service  to  the  current  generation  of  tax  payers. 
However,  the  DoD  FY84  Authorization  Act  (Public  Law  98-94)  requires  the  military 
retirement  system  to  be  valued  using  accrual  accounting  and  funded  using  an  aggregate 
entiy-age  normal  method.  Under  accrual  accounting,  future  retirement  and  survivor 
benefits  that  are  earned  by  current  service  members  are  accounted  for  and  charged  to 
the  current  budget.  The  aggregate  entiy-age  normal  method  sets  aside  a  uniform  or 
level  percentage  of  basic  pay  to  provide  the  funds  for  the  retirement  annuities.  Only 
each  year's  normal  cost  (plus,  minus  any  actuarial  gains  or  losses)  will  be  funded  by 
DoD.  The  U.S.  Treasury  will  assume  responsibility  to  make  payments  on  the 
unfunded  liability.  Accrual  accounting  and  aggregate  entry-age  funding  should  provide 
three  improvements  over  the  pay-as-you-go  system:  (1)  the  current  year's  total  cost  of 
the  present  militaiy  force  is  more  accurately  presented;  (2)  a  more  accurate  assessment 
of  how  changes  to  the  force  structure  effect  future  retirement  costs;  and  (3)  less 
emphasis  on  immediate  retirement  benefit  cuts  that  olLer  only  short-term  savings. 
[Ref  1:  p.  1-8] 

C.  MILITARY  RETIREMENT  COSTS  VS.  GNP  AND  FEDER^AL  OUTLAYS 
Taken  by  themselves,  militaiy  retirement  costs  certainly  do  appear  to  he 
excessive:  a  increase  in  the  last  thirty  years  with  a  fiscal  year  1983  cash  cost  of 

S  1.5.9  billion.  But,  how  do  these  figures  compare  to  other  costs? 


Table  IV  presents  GNP,  federal  budget,  defense  spending,  and  military-  personnel 
costs  for  the  last  thirty  years.  Though  retirement  costs  have  steadily  increased  since 
1954,  GNP  and  the  federal  expenditures  have  also  been  rising  steadily.  (See  Figures  2.1 
-  2.3.)  [Refs.  9,14,15:  pp.  10  &  11] 

Examining  the  increases  in  GNP  and  the  federal  outlays  over  the  last  thirty  years, 
we  find  that  the  percentage  increase  in  military  retirements  costs  has,  in  fact,  far 
outdistanced  the  others.  Retirement  costs  have  climbed  4000%  since  1954.  During 
this  same  period,  GNP,  the  federal  budget,  defense  spending,  and  military  personnel 
costs  have  increased  875°/o,  1023%,  422%,  and  315°/'o,  respectively. 

Looking  at  the  relationship  between  retirement  costs,  defense  spending,  and  total 
federal  outlays  a  little  closer,  we  find  that  in  the  same  period  that  military  retirement 
costs  have  increased  from  1%  to  8%  of  the  defense  budget,  defense  spending  has 
decreased  as  a  percentage  of  the  federal  budget  from  57®/o  down  to  26°/o.  As  a 
percentage  of  the  federal  budget,  military  retirement  costs  have  increased  roughly  three 
and  a  half  times  from  .6%  to  2.0%.  These  increases  in  military  retirement  costs  would 
seem  to  make  a  strong  argument  in  favor  of  modifying  the  retirement  system  in  order 
to  reduce  costs. 

D.  REASONS  FOR  INCREASES  IN  MILITARY  RETIREMENT  COSTS 

This  section  briefly  describes  the  results  of  analyses  conducted  during  the  Fifth 
Quadrennial  Review  on  Military  Compensation.  Using  non-disability  retirement  data 
from  fiscal  years  1955  to  1982,  four  factors  were  investigated  to  determine  their 
influence  on  the  increases  in  retirement  costs.  These  four  factors  were:  (1)  retired 
population  growth,  (2)  CPI  inflation,  (3)  basic  pay  (which  is  used  to  determine 
retirement  pay)  increases  in  excess  of  inflation,  and  (4)  retired  pay  adjustments 
(COLA).  [Ref  16:  p.  F-1] 
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TABLE  III 


30  YEARS  OF  GNP  AND  FEDERAL  OUTLAYS 


(Billions  of 


GNP 

FEDERAL 

BUDGET 

DEFENSE 

X  OF 
FED. 
BUD. 

MILPERS 

X  OF 
DEF. 

RETIRED 

X  OF 
DEF. 

X 

FE 

BU 

01 

D 

D 

3500 . 0 

795.97 

210.48 

26.4 

45.52 

21.6 

15.93 

7.6 

2.0 

3200.0 

728.38 

187.42 

25.7 

42.34 

22.6 

14.94 

8.0 

2.1 

2937.7 

657.20 

159.77 

24.3 

36.41 

22.8 

13.72 

8.6 

2.1 

2633.1 

576.68 

135.86 

23.6 

30.84 

22.7 

11.92 

8.8 

2.1 

2417.8 

491.00 

117.70 

24.0 

28.40 

24.1 

10.28 

8.7 

2.1 

2163.9 

448.37 

105.20 

23.5 

27.10 

25.8 

9.17 

8.7 

2.0 

1918.3 

400.51 

97.50 

24.3 

25.70 

26.4 

8.22 

8.4 

2.1 

1718.0 

364.47 

89.40 

24.5 

25.10 

28.1 

7.30 

8.2 

2.0 

1549.2 

324.26 

85.60 

26.4 

25.00 

29.2 

6.24 

7.3 

1.9 

1434.2 

276.91 

77.80 

28.1 

23.70 

30.5 

5.14 

6.6 

1.9 

1326.4 

245.65 

74.50 

30.3 

23.20 

31.1 

4.39 

5.9 

1.8 

1185.9 

230.68 

76.60 

33.2 

23.00 

30.0 

3.89 

5.1 

1.7 

1077.6 

210.17 

75.80 

36.1 

22.60 

29.8 

3.39 

4.5 

1.6 

992.7 

195.65 

78.60 

40.2 

23.00 

29.3 

2.85 

3.6 

1.5 

944.0 

183.65 

79.40 

43.2 

21.40 

27.0 

2.44 

3.1 

1.3 

873.4 

178.13 

78.80 

44.2 

21.95 

27.9 

2.09 

2.7 

1.2 

799.6 

157.61 

68.20 

43.3 

19.79 

29.0 

1.83 

2.7 

1.2 

756.0 

134.65 

54.90 

40.8 

16.75 

30.5 

1.59 

2.9 

1.2 

691.1 

118.43 

47.50 

40.1 

14.80 

31.2 

1.39 

2.9 

1.2 

637.7 

118.58 

51.50 

43.4 

14.20 

25.9 

1.01 

2.0 

0.9 

596.7 

111.31 

50.10 

45.0 

13.00 

27.6 

1.21 

2.3 

1.0 

565.0 

106.81 

49.00 

45.9 

13.00 

26.5 

0.90 

1.8 

0.8 

524.6 

97.80 

46.60 

47.6 

12.10 

26.0 

0.79 

1.7 

0.8 

506.5 

92.22 

45.20 

49.0 

11.70 

25.9 

0.69 

1.5 

0.7 

487.9 

92.10 

46.50 

50.5 

11.80 

25.4 

0.63 

1.4 

0.7 

449.7 

82.58 

44.20 

53.5 

11.60 

26.2 

0.56 

1.3 

0.7 

444.0 

76.74 

43.40 

56.6 

11.40 

26.3 

0.51 

1.2 

0.7 

421.7 

70.46 

40.10 

56.9 

11.60 

28.9 

0.48 

1.2 

0.7 

400.0 

68.51 

40.63 

59.3 

10.64 

26.2 

0.42 

1.0 

0.6 

366.8 

70.89 

40.34 

56.9 

10.96 

27.2 

0.39 

1.0 

0.6 

(Data  was  obtainsd  from  the  FY1983  Valuation  of  the  Military 
Retirement  System >  and  the  1983  and  1967  Economic  Reports  of  the 
President.  ) 


The  analyses  determined  military  basic  pay  increased  by  a  factor  of  4.8,  while 
CPI  inflation  had  increased  by  a  factor  of  3.6.  These  two  factors  were  calculated  to 
have  accounted  for  approximately  76%  of  the  increase  in  military  retirement  costs 


CiNJ*  and  Federal  Outlays. 


I  igurc  2  2  I  cdcral  Outlay 


(2ro  -  wage  growth,  55'’o  -  CPI  inflation).  The  other  two  factors,  increases  in  the 
retired  population  and  COLA  adjustments  to  retired  pay.  were  responsible  for  19'’o  and 


5" ),  respectively,  of  the  remaining  24'^’ o  increase  in  costs.  [Refs.  1,16:  p.  \TII-7.pp.  F-1 
to  F-llj 

It  was  also  determined  that  changes  in  olFicer  enlisted  mix.  changes  in 
grade  rank  years-of-service  (VOS)  at  retirement,  mortality  improvements,  and  the 
establishment  of  paygrades  FS  E9  were  not  major  factors  for  the  increases  in 
retirement  costs.  [Refs.  1.16:  p.  \Tn-7,p.  F-9] 

E.  SUMMARY 

Whether  considered  alone  or  whether  they  are  compared  to  other  federal  outlays, 
the  costs  of  the  nulitary  retirement  system  have  grown  tremendously.  In  the  last  thirty 
years  alone,  as  a  percentage  of  total  federal  expenditures,  retirement  costs  have 
increased  over  three-fold.  There  is  no  doubt  that  these  costs  will  continue  to  grow  and 
become  an  even  greater  percentage  of  the  federal  and  defense  budgets.  .As  the  major 
portion  of  militar}’  retirement  costs,  non-disability  retirement  provisions  appear  to  be 
the  likelv  candidates  for  cost-savine  measures. 


III.  MILRET  COMPUTER  PROGRAM 


A.  BACKGROUND 

The  MILRET  computer  program  is  a  major  revision  of  the  ENTRYAGE 
computer  Model  that  was  developed  in  1983  at  the  Naval  Postgraduate  School  as  part 
ot  a  thesis.  The  ENTRYAGE  model  is  an  750-line  Waterloo  BASIC  language 
program  that  was  used  to  perform  a  sensitivity  analysis  on  both  individual  and 
aggregate  entry-age  normal  retirement  cost  methods  under  differing  economic, 
managerial,  and  legal  assumptions.  However,  only  active  duty  non-disahility 
retirement  costs  were  included  in  the  program.  [Ref  17] 

.-\t  the  request  of  the  Office  of  the  Assistant  Secretary’  of  Defense  (Manpower, 
Logistics,  and  Reserve  .MTairs),  an  effort  was  initiated  to  revise  the  ENTR\’.AGE 
program  to  produce  results  comparable  to  those  of  the  Military'  Retirement  System 
Projection  and  .Actuarial  Valuation  Program  (GORGO)  developed  by  the  DoD 
.Actuary.  This  30()0-line  FORTR,AN  language  program  has  the  capability  to  make 
dynamic,  transitional,  and  steady-state  projections.  GORGO  is  an  e.xtremely  detailed 
program  that  encompasses  all  aspects  of  the  military  retirement  system:  non-disability, 
disability,  active  and  reserve,  officers  and  enlisted  personnel,  and  SBP  population  and 
cost.  Input  for  this  program  is  provided  by  another  DoD  Actuary  program,  the 
Annualized  Cost  of  Leaving  (ACOL)  model.  [Refs.  1,8:  pp.  IX-24  &  IX-25.pp.  9  &  10] 
The  revisions  to  the  original  ENTRYAGE  model  were  to  include:  (1)  reserve, 
disability,  and  SBP  provisions  in  the  algorithms;  (2)  make  the  program  more 
"user-friendly"  and  interactive;  (3)  produce  "cleaner"  output;  and  (4)  have  the  capability 
to  access  e.xternal  data  bases.  Consideration  was  also  to  be  given  to  recode  the 


ENTRVAGE  program  to  either  Pascal  or  Interactive  Financial  Planning  Svsteni 
(IFPS). 

As  work  progressed,  it  became  obvious  that  the  GORGO  program  was  of  a 
much  higher  level  of  sophistication  than  the  ENTR^'AGE  computer  model.  In  fact, 
for  the  Fifth  Quadrennial  Review  of  Military’  Compensation,  two  additional  computer 
programs  were  written  to  provide  data  inputs  to  GORGO.  In  all.  five  separate 
computer  programs  were  utilized  to  analyze  military  retirement  costs  and  the  impact  of 
various  alternatives.  The  experience,  talent,  and  time  required  to  develop  the 
FNTRY.AGE  model  into  something  comparable  to  GORGO  were  beyond  the  scope  of 
the  author. 

B.  REVISIONS 

The  changes  made  to  the  ENTRY.AGE  model  have  been  extensive.  The 
ENTR’l'.AGE  model  has  been  almost  completely  rewritten  and  the  new  program  has. 
therefore,  been  renamed  as  the  MILRET  (Military  Retirement)  program.  Major 
revisions  to  the  original  ENTRY.AGE  model  include: 

•  Internal  documentation  of  the  program. 

•  Development  of  "call-able"  procedures  and  functions  (features  of  Waterloo 

B.ASIC)  to  replace  approximately  75  "GOTO"  and  GOSLB"  statements. 

•  Extensive  use  of  menus  to  provide  a  more  user-friendly  environment 

The  revisions  to  the  ENTRY.AGE  model  have  resulted  in  over  1300  lines  of  code 
for  the  MILRET  program.  Since  Waterloo  B.ASIC  includes  functions  and  procedures, 
the  decision  was  made  to  remain  with  that  language.  No  algorithms  were  developed  for 
reserve,  disability,  or  SBP  provisions,  nor  was  the  capability  to  access  external  data 
bases  included. 


C.  INSTRUCTIONS 


Use  of  the  MILRET  is  relatively  simple  and  straightfbrd.  To  enter  the  Waterloo 
BASIC  environment  on  the  IBM  System  3033.  the  following  steps  are  required; 

1.  "WBASIC"  <  ENTER > 

2.  "OLD  MILRET  <  ENTER > 

3.  "RUN"  <  ENTER > 

Do  not  include  the  quotation  marks,  only  what  is  contained  between  them.  .After  a 
few  moments  while  the  program  is  loading,  a  message  will  appear  with  the  MILREP 
name.  Shortly  thereafter,  a  Main  Menu  is  presented  from  which  to  choose  the 
following; 

1.  Program  Description 

2.  Enter  Change  Data  and  .Actuarial  Assumptions 

3.  Individual  Entr\-.Age  Method 

4.  .Aggregate  Entr>‘-.Age  Method 

5.  E.xpanded  Multi-Year  Individual  Cost  Method 

6.  Exit  Program 

It  is  recommended  for  the  first  time  user  to  start  with  the  program  description, 
followed  by  a  review  of  the  data  and  actuarial  assumptions  contained  in  the  program. 
•Appendix  C  contains  listings  of  the  various  menus  that  are  displayed  and  some  sample 


inputs. 


APPENDIX  A 


MILRET  COMPUTER  PROGRAM  {VERSION  2.0) 


00010  »*»»««»<» 
00020!*  MILRET  Pension  Cost  Pro^reu*  * 

00030!*  This  is  a  three  part  interactive  program  that  calculates  • 
00040!*  non-disability  military  retirement  costs.  The  three  parts  of  * 
00050!*  the  program  are  (1)  individual  entry-a^e  cost  method  calcula-  * 
00060!*  tion>  (2)  aggregate  entry-age  cost  method*  and  13)  a  multi-  • 

00070!*  year  expanded  individual  cost  method.  Program  data  has  been  • 

00080!*  derived  from  Department  of  Defense  sources*  and  considers  * 

00090!*  1983  to  be  the  current  year.  * 

00100!**«**>»*»»*»**»***»*****»»»***«*W*M*MM******M*»*»><*»*»*«I«*»*S»*I«*«»* 
00110 

001 20  !**»«**■*«  ii>«»**i«*i«»*i<**»»i»»»**»»i««»»M*»w»*»»*«»««M«ii»iiiii«»»*«*i»***** 

00130!*  OPTIOH  Statements 

00140!*  The  option  statement  is  used  to  inform  the  Waterloo  BASIC  • 
00150!*  system  of  certain  global  information  to  be  used  to  the  control  • 
00160!*  the  execution  of  the  program ■  • 

00170!*  prompti  A  '?'  is  displayed  on  the  terminal  when  data  is  input  • 
00180!*  base  li  Establishes  '1'  as  the  lower  extent  of  all  matrices  * 

00190!*  Ipreci  Numbers  have  16  digits  of  precision  I  long  precision)  .* 

00200!  **»**«»«»»mi*i«*»<  mm 
00210  option  prompt*  base  1*  Iprec 
00220 

00230!**»»*M*«i«*»**m»miiiMiiiim»i<«««*Mw»«ii*«»w»»iHiii»*»»*»miMW»w«m»wmi»MS»»sM 
00240!*  RESTORE  Statement  * 

00250!*  Restores  the  data-list  conceptual  pointer  to  the  first  item  * 
00260!*  in  the  first  data  statement  of  the  program.  * 

00270!»*»*«»*«»m<»*«***»i«***«*»»»***»«»»»m<*»i«miii»**»»**»***i»»«*«**«**««* 
00280  restore 
00290 

00300!»*«****«***«»*»**»«»»**»W»»»*»**»»*»*»W*«»»*»*MM*Wml»*»»M»*»»M»**«M 

00310!*  Actuarial  and  economic  assumptions  • 

00320  !i»*»»»»»«*ii»»»***i»M»»**»MmiMiHni»m»»M*»»»w»«»*«wi»»i*»*m»»«*«»*«»**»«*M 

00330  current_year  =  1983  V.  annuity_multiplier  =  .025 

00340  cola  »  .05  X  max _porcont_of_pay  =  .75 

00350  salary_scale_incr  s  .055  X  off_rotiro_prob  =  .40 

00360  annual_disc  rate  »  ,06  X  enl  retire_prob  =  .12 

00370 

00380  !***»»m»*)»*s***»**w****»»»»MM*«»»»»»Mi»m<M»w**»»**»Mii»i»*M*«*«*»****  II* 

00390!*  The  opening  credit  is  first  displayed*  followed  by  the  * 

00400!*  program's  main  menu.  The  operator's  selection  is  chec!ced  to  * 
00410!*  determine  if  the  operator  desires  to  terminate  the  program.  * 
00420!*  If  the  program  continues  on*  the  appropriate  procedure  is  * 
00430!*  called.  Finally*  if  an  invalid  selection  number  has  been  * 

00440!*  entered*  an  error  message  is  printed  and  the  main  menu  is  * 

00450!*  re-displayed  to  the  operator.  * 

00460  . . . 
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00470  call  dlJnen3ion_ma'trices 
00480  call  read_in_data 
00490 

OOSOO  call  inilret_prograin_opening_credit 
OOSIO  main_menu_3election$= ' 0 • 

00S20  while  (main  menu  3electioni<>‘ 6 ‘  ) 

00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710  endloop 
00720 

00730;i«»»»»»iK3*»iH«i>i»»»»m>»K»i<ii»»»i<«iiii<<M»«e<i«iiM»<i»»niiiei»ii»»»<iH«<i»<wm»HKi««i»»<ni 

00740!»  PROCEDURE  milret_projram_openinj_credit  * 

00750! 

00760  proc  milret_pro5rara_openinj_credit 
00770  print  chr*( 12) 

00780  print  '/.  print  print  print 
00790  print  '/.  print  V.  print  'A  print 
00800  print 

00870  print  tab(14)>'  MILRET  PROGRAM  (Version  2.0,  1985)’ 

00880  print 

00890  print  tab(  14 )) 'Developed  at  Naval  Poatjraduato  School,  ftonterei',  CA 
00900  print 

00910  print  tab(14))'  (Please  wait  -  program  ia  loading.)' 

00920  for  i  =  1  to  30000 
00930  next  i 

00940  endproc  !(*  entrya9e_projrani_opening_credit  *) 

00960 

OlOlO’MXAnloionionwwnsMWiowwsiomoe-soxaexuixsiHxwexsesm*”************* 

01020!«  PROCEDURE  dijnension_matrices  * 

01030'.*  The  various  data  matrices  are  dimensioned.  * 

01050  proc  dimension_matrices 
01060  dim  current_/ear_basepayl 26,6  ) 

01070  dim  prior _year_basepay(  26 ,6  ) 

01080  dim  enl_nondi3_retired_mortality( 31  ) 

01090  dim  off_nondi3_retired_mortality( 31 ) 

01100  dim  avg_los_for_retired_jrada( 26  I 
OHIO  dim  avg’_a5e_for_ratired_3rade(  26  ) 

01120  dim  target_retired_jrade_prob( 26  ) 

01130  dim  enlisted_acce3Sion( 32  ) 

01140  dim  off icer_accos3ion( 32  ) 

01150  endproc  !(*  dimen3ion_matrice3  *) 

OlUOlmosimnaaMnwwnHKawKiHiwioiiiiiimwiKeweeexwxwewMiiiiiiiiiimiiiiOMuxinwe 


call  di3play_main_menu 
on  ioerr  ignore 
input  main_menu_selection$ 
if  main_menu_salection$= ' 6 ■ 
call  exit_program_message 
elseif  main_menu_selectionS= ■ 1  * 
call  program_description 
elseif  main_menu_selection$= ■ 2* 
call  enter_data 

elseif  main_menu_salection6= • 3' 

call  individual_entry_ago_normal 
elseif  main_menu_selection$=‘4' 

call  aggregate_entry_age_normal 
elseif  main_menu_selection$= 'S* 

call  expanded_multi_year_individual_nor»al 
else 

call  main_monu_error_message 
endif 
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1983  pay  data 

Thera  is  a  value  in  this  matrix  (and  the  one  below)  for 
each  of  the  26  pay^rades  (el-e9>  wl-w4>  ol,  ole>  o2,  oZo, 
alt  o3et  and  o4-ol0)  in  2-year  increments  from  20  years  to 
30>  years  of  military  service. 


01170 

01220!  . . . 

01230!*  PROCEDURE  read_in_data 

01240!*  The  various  data  matrices  are  read  from  the  program 

01250!*  into  internal  storage  for  use  in  the  calculations. 
01260!»«***»»»»»»*«»»»»*»»*»**»im**»**mm**»* 

01270  proc  read_in_data 
01280  read  mat  current_year_ba3apay 
01290  read  mat  prior_year_basepay 
01300  read  mat  enl_nondis_retired_mortality 
01310  read  mat  off_nondia_retired_mortality 
01320  read  mat  avg_los_for_retired_grade 
01330  read  mat  avg_age_for_ratired_grade 
01340  read  mat  target_retired_grade_prob 
01350  read  mat  enliated_accesaion 
01360  read  mat  off icer_accession 
01370  endproc  !(*  read  in  data  *1 
01380!)i»»*»»i»»**«i»»»»m<»*«ii»»i<»MMii»»iiMMM*i»« 

01390 

014S0!*M*MMMW»«M»»*»m«»«*l<  »**««*■***»**»»*■ 

01460!*  1983  pay  dat: 

01470!*  There  is  a  value  in  this  matri; 

01480!*  each  of  the  26  paygrades  (el-e9> 

01490!*  o3»  o3a»  and  o4-ol0)  in  2-year  ii 

01500!*  30>  years  of  military  service. 

01510  !»»MW«*IIIKM»MIIMMMI<WIIM»MI<»<m<»*»»MM«MM»MI 
01520!  20  yrs.  22  yrs.  24  yrs.  2i 

01530  data  573.6,  573.6,  573.6,  i 

01540  data  642.9,  642.9,  642.9,  i 

01550  data  762.3,  762.3,  762.3, 

01560  data  888.6,  888.6,  888.6,  I 

01570  data  1102.8,  1102.8,  1102.8,  l: 

01580  data  1299.3,  1299.3,  1299.3,  11 

01590  data  1483.5,  1583.1,  1583.1,  l; 

01600  data  1681.2,  1779.9,  1779.9,  1' 

01610  data  1917.9,  2019.0,  2019.0,  2i 

01620  data  1660.8,  1660.8,  1660.8,  1( 

01630  data  1789.8,  1862.4,  1862.4,  11 

01640  data  1994.1,  2066.4,  2066.4,  2: 

01650  data  2267.7,  2243.6,  2243.6,  2! 

01660  data  1382.4,  1382.4,  1382.4,  l: 

01670  data  1716.6,  1716.6,  1716.6,  i; 

01680  data  1752.6,  1752.6,  1752.6,  1' 

01690  data  2029.2,  2029.2,  2029.2,  2( 

01700  data  2361.9,  2361.9,  2361.9,  2: 

01710  data  2397.3,  2397.3,  2397.3,  2. 

01720  data  2731.2,  2731.2,  2731.2,  2. 

01730  data  3155.7,  3266.1,  3266.1,  3i 

01740  data  3488.4,  3690.9,  3690.9,  4( 

01750  data  4555.8,  4555.8,  4555.8,  4! 

01760  data  4791.6,  4791.6,  4791.6,  41 

01770  data  4791.6,  4791.6,  4791.6,  4) 

01780  data  4791.6,  4791.6,  4791.6,  4) 

01790!ii»»»**»w*»mii»«««w»**«»wmm*»mi»w»*mw»»*i 
01800 

01830! »■*»■*■*■*■■**»*»»*■***»*■■■■*»**»*■»» 

01840!*  1982  pay  da 

. . 

01860!  20  yrs.  22  yrs.  24  yrs.  2( 

01870  data  551.4,  551.4,  551.4,  < 


20  yrs. 

22  yrs. 

24  yrs. 

26  yrs. 

28  yrs. 

30+  yrs 

573.6, 

573.6, 

573.6, 

573.6, 

573.6, 

573.6 

642.9, 

642.9, 

642.9, 

642.9, 

642.9, 

642.9 

762.3, 

762.3, 

762.3, 

762.3, 

762.3, 

762.3 

888.6, 

888.6, 

888.6, 

888.6, 

888.6, 

888.6 

1102.8, 

1102.8, 

1102.8, 

1102.8, 

1102.8, 

1102.8 

1299.3, 

1299.3, 

1299.3, 

1299.3, 

1299.3, 

1299.3 

1483.5, 

1583.1, 

1583.1, 

1779.9, 

1779.9, 

1779.9 

1681.2, 

1779.9, 

1779.9, 

1978.5, 

1978.5, 

1978.5 

1917.9, 

2019.0, 

2019.0, 

2215.2, 

2215.2, 

2215.2 

1660.8, 

1660.8, 

1660.8, 

1660.8, 

1660.8, 

1660.8 

1789.8, 

1862.4, 

1862.4, 

1862.4, 

1862.4, 

1862.4 

1994.1, 

2066.4, 

2066.4, 

2139.3, 

2139.3, 

2139.3 

2267.7, 

2243.6, 

2243.6, 

2526.0, 

2526.0, 

2526.0 

1382.4, 

1382.4, 

1382.4, 

1382.4, 

1382.4, 

1384.2 

1716.6, 

1716.6, 

1716.6, 

1716.6, 

1716.6, 

1716.6 

1752.6, 

1752.6, 

1752.6, 

1752.6, 

1752.6, 

1752.6 

2029.2, 

2029.2, 

2029.2, 

2029.2, 

2029.2, 

2029.2 

2361.9, 

2361.9, 

2361.9, 

2361.9, 

2361.9, 

2361.9 

2397.3, 

2397.3, 

2397.3, 

2397.3, 

2397.3, 

2397.3 

2731.2, 

2731.2, 

2731.2, 

2731.2, 

2731.2, 

2731.2 

3155.7, 

3266.1, 

3266.1, 

3266.1, 

3266.1, 

3266.1 

3488.4, 

3690.9, 

3690.9, 

4002.9, 

4002.9, 

4002.9 

4555.8, 

4555.8, 

4555.8, 

4555.8, 

4555.8, 

4555.8 

4791.6, 

4791.6, 

4791.6, 

4791.6, 

4791.6, 

4791 .6 

4791.6, 

4791.6, 

4791.6, 

4791.6, 

4791.6, 

4791.6 

4791.6, 

4791.6, 

4791.6, 

4791.6, 

4791.6, 

4791.6 

1982  pay  data 


20  yrs. 
551.4, 


22  yrs. 
551.4, 


24  yrs. 
551.4, 


26  yrs. 
551.4, 


28  yrs. 
551.4, 


30  yrs. 
551.4 
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01880 

data 

618.3, 

618.3, 

618.3, 

618.3, 

618.3, 

618.3 

01890 

data 

732.9, 

732.9, 

732.9, 

732.9, 

732.9, 

732.9 

01900 

data 

854 . 4 , 

854.4, 

854.4, 

854 . 4 , 

854.4, 

854.4 

01910 

data 

1060.5, 

1060.5, 

1060.5, 

1060.5, 

1060.5, 

1060.5 

01920 

data 

1249.2, 

1249.2, 

1249.2, 

1249.2, 

1249.2, 

1249.2 

01930 

data 

1426.5, 

1522.2, 

1522.2, 

1711.5, 

1711.5, 

1711.5 

01940 

data 

1616.4, 

1711.5, 

1711.5, 

1902.3, 

1902.3, 

1902.3 

01950 

data 

1844.1, 

1941.3, 

1941.3, 

2130.0, 

2130.0, 

2130.0 

01960 

data 

1596.9, 

1596.9, 

1596.9, 

1596.9, 

1596.9, 

1596.9 

01970 

data 

1721.1, 

1790.7, 

1790.7, 

1790.7, 

1790.7, 

1790.7 

01980 

data 

1917.3, 

1986.9, 

1986.9, 

2057.1, 

2057.1, 

2057.1 

01990 

data 

2180.4, 

2253.6, 

2253.6, 

2428.8, 

2428.8, 

2428.8 

02000 

data 

1329.3, 

1329.3, 

1329.3, 

1329.3, 

1329.3, 

1329.3 

02010 

data 

1650.6, 

1650.6, 

1650.6, 

1650.6, 

1650.6, 

1650.6 

02020 

da  ta 

1685.1, 

1685.1, 

1685.1, 

1685.1 , 

1685.1, 

1685.1 

02030 

data 

1951.2, 

1951.2, 

1951.2, 

1951.2, 

1951.2, 

1951.2 

02040 

data 

2271.0, 

2271.0, 

2271.0, 

2271.0, 

2271.0, 

2271.0 

02050 

da  ta 

2305.2, 

2305.2, 

2305.2, 

2305.2, 

2305.2, 

2305.2 

02060 

data 

2626.2, 

2626.2, 

2626.2, 

2626.2, 

2626.2, 

2626.2 

02070 

data 

3034.2, 

3140.4, 

3140.4, 

3140.4, 

3140.4, 

3140.4 

02080 

data 

3354.3, 

3349.0, 

3349.0, 

3849.0, 

3849.0, 

3849.0 

02090 

data 

4176.0, 

4176.0, 

4176.0, 

4176.0, 

4176.0, 

4176.0 

02100 

data 

4176.0, 

4176.0, 

4176.0, 

4176.0, 

4176.0, 

4176.0 

02110 

data 

4176.0, 

4176.0, 

4176.0, 

4176.0, 

4176.0, 

4176.0 

02120 

data 

4176.0, 

4176.0, 

4176.0, 

4176.0, 

4176.0, 

4176.0 

Officer  non-disability  retired  life  expectations 
Thirty-one  life  expectations  for  a^es  35  to  65  years  old. 


02140 

02180!«  Enlisted  non-disability  retired  life  expectations 

02190!*  Thirty-one  life  expectations  for  ages  35  to  65  years  old. 
02200 

02210  data  37.47,  36.57,  35.67,  54.77,  33.56,  32.95,  32.04,  31.14,  30.24 

02220  data  29.34,  28.46,  27.59,  26.73,  25.88,  25.04,  24.22,  23.41,  22.62 

02230  data  21.86,  21.10,  20.36,  19.62,  18.90,  18.18,  17.47,  16.78,  16.10 

02240  data  15.44,  14.79,  14.16,  13.54 

02250!  . . . 

02255 

02260!  . . . 

02270!*  Officer  non-disability  retired  life  expectations 

02280!*  Thirty-one  life  expectations  for  ages  35  to  65  years  old. 

02290  . . .  we 

02300  data  40.90,  39.97,  39.04,  38.13,  37.20,  36.28,  35.37,  34.45,  33.54 

02310  data  32.63,  31.73,  30.83,  29.94,  29.06,  28.18,  27.31,  26.45,  25.60 

02320  data  24.75,  23.91,  23.09,  22.27,  21.46,  20.65,  19.87,  19.08,  18.31 

02330  data  17.55,  16.81,  16.07,  15.35 

02340  !*i«»**«*»ii»*****»»s**»«*M»*«»*eMM»«MS»*see**eM««ese»*e»«MS«»siHtee»e 

02360 

02370  . . . . 

02380!*  Average  LOS  data 

02390!*  NOTE  I  There  is  an  entry  in  this  matrix  land  the  two  below  I 
02400!*  for  el-e9,  wl-w4,  ol ,  ole,  o2 ,  o2e  ,  o3>  o3e ,  and 

02410!*  o4-ol0.  Therefore,  there  are  twenty-six  data  entries. 

02420  . . . 


02460! 

02480 


data 

20.8, 

20.4, 

20.8, 

21.0, 

21.0, 

21.0, 

21.8, 

22.7, 

24.3 

data 

22.1, 

22.7, 

23.1, 

22.7, 

21.9, 

21.9, 

22.5, 

22.5, 

24.1 

data 

24.1, 

24.2, 

24.9, 

28.0, 

29.9, 

30.4, 

30.4, 

30.4 
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. . . 

0Z510!«  Average  age  at  retirement  data  • 
02520!*  26  average  retirement  ages  for  each  of  the  26  paygrades,  • 
02550! K******************************************************** **«»»*»*** 


02540 

data 

58.8, 

59.8* 

40.6, 

40.7, 

40.5, 

40.0, 

40.9, 

41.5, 

42.9 

02550 

data 

45.0, 

44.1, 

42.2, 

47.1, 

45.1, 

45.1, 

44.0, 

44.0, 

45.6 

02560 

data 

45.6. 

44.4* 

46.5, 

50.5, 

55.0, 

56.2, 

58.1, 

59.8 

02570  !i»»<ii**»»*«*»«*»»»*»»««*»««M»****in<«>m»»ni»m«**«i»»»*i>inHt«»«**i»  ««*»****« 

02500 

02590!  »*»»*»»**«  Mon***************************************************** 
02'600!*  Target  retirement  grade  probability  data  • 

02610!*  26  probabilities  of  retiring  in  a  particular  paygrades.  * 


02620!***** 
02630  data 

.0001, 

.0001, 

.0025, 

.0128, 

.0578, 

.2754, 

.4229, 

.1010 

02640  data 

. 0546 , 

.0050, 

.0170, 

.0102, 

.0129, 

.0005, 

.0005, 

.0044 

02650  data 

.0044, 

.0252, 

.0252, 

.5926, 

.5299, 

.2586, 

.0020, 

.0158 

02660  data 
02670'***** 

.0050, 

.0006 

02680 

02690!ll**»*»»M»«ll*«»*»«W*«*MW**«»**»»**WW***»*M**»l»**l»*WII*W»W*MliMW»*MW»»* 
02700!*  Enlisted  accession  data  * 
02710!*  Contains  52  enlisted  accession  rates  for  the  years  1951-1982.  • 
02720  !»»«**ii»***»***»*<»»»«*i<i<*»««>i«»m<»i«*i»wm>»»»w»»*mi»»»»MMm»»*»Mii»»»** 


02750 

data 

202.4, 

171.4, 

88.1, 

54.9, 

121.4, 

112, 

80.4, 

89.7 

02740 

data 

86.4, 

91.4, 

94.2, 

107.4, 

85.5, 

95.0, 

94.5, 

145.7 

02750 

data 

101.1, 

122.8, 

147.1, 

100.2, 

78.7, 

89.2, 

99.0, 

85.6 

02760 

data 

89.7, 

99.2, 

104.7, 

70.1, 

65.6, 

75.1, 

79.1, 

65.9 

02770  !mi«**»»**««»«*<»*w»M»*»»<*MM***w»****«i«»«*m»*»ii»«M»**«M*«*w*wi«»*«*i>* 

02780 

02800!*«»*i»»»**»**m*»*m*mw»m***«»*m**«m»**wi<s*»»*w»m**»**»*mm*i»mm*»ii**»»* 
02810!*  Officer  accession  data  * 

02820!*  Contains  52  officer  accession  rates  for  the  years  1951-1982.  * 

02850!  vx*************************************************************** 


02840 

data 

8.0, 

9.0, 

11.9, 

11.4, 

9.7, 

8.8, 

13.4, 

8.9 

02850 

data 

8.9, 

11.0, 

8.6, 

11.9, 

10.5, 

9.8, 

10.9, 

11.0 

02860 

data 

15.0, 

15.1, 

15.6, 

5.5, 

9.5, 

11.1, 

7.6, 

6.0 

02870 

data 

6.5, 

6.6, 

6.6, 

6.1, 

7.0, 

6.8, 

7.S, 

7.0 

02880!«»***«*»»*«»»***»*«»*«»i**'»*****w»**w»MM**»xm»M**i<**»»**Mii»»»i»«w*xM* 

02885 

02a90!*»**»***»»X*»*X*«**»X*****»»MSM»**X*»*»W*»M*MM»W»M*W***»MM*»**W*WX* 

02900!*  PROCEDURE  display_main_menu  * 

02910!*  Displays  a  main  menu  from  which  to  make  a  program  selection.  * 

02920  . . . 

02950  proe  di3play_main_menu 
029A0  print  chr$(12) 

02950  print  tab( 25 )) ‘Military  Pension  Costs' 


02960  print 

02970  print  tab(ia))'  This  is  a  three-part  interactive  program  that 
02980  print  tab(  10  I ) 'calculates  individual*  aggregate*  and  multi-year 
02990  print  tab(  10 1 > 'retirement  costs.  Choose  a  selection  from  the' 
05000  print  tab( 10 )> 'following  list  of  optionsi' 

05010  print 

05020  print  tab(12)>'l.  Program  description' 

05050  print 

05040  print  tab(12U'2.  Enter/change  data  and  actuarial  assumptions' 
05050  print 

05060  print  tab(12)t'5.  Individual  entry-age  cost  method' 

05070  print 

05080  print  tab(12l>'4.  Aggregate  entry-age  cost  method' 

05090  print 
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05100 

05110 

05U0 

05150 

05140 

05150 

05160! 

05170 

05210! 

05220! 

05250! 

05240! 

05250 

05260 

05270 

05230 

05290 

05500 

05510 

05520 

03550 

05340! 

03350 

03390! 

03400! 

03410! 

05420! 

05430 

03440 

03450 

03460 

03470 

03430 

03490 

03500 

05510 

03520 

03530 

05540 

05550 

05560 

05570! 

05530 

03610! 

03620! 

03650! 


print  tab(12Ji'5.  Expanded  multi-year  individual  cost  method* 
print 

print  tab(  12)1*6.  Exit  program* 
print 

print  *  Type  in  your  selection  number  and  press  the  <enter>  key. ' 
endproc  !(•  display_main_menu  ») 


•  PROCEDURE  exit_pcogram_message 

*  Prints  a  message  upon  exiting  the  entryage  program. 

proc  exit_program_meaaage 

print  chr$l 12) 

print 

print 

print  '  Program  has  been  exited.  Type  in  **bye‘*  * 

print  *  and  press  the  <enter>  key  to  return  to  the* 

print  *  QIS  environment.* 

print  print  print  ‘A  print  Z  print  Z  print  Z  print  Z  stop 
endproc  !(*  exit_program_messago  ») 


•  PROCEDURE  main_menu_error_message 

*  This  procedure  prints  an  error  message  when  called. 

proc  fflain_menu_error_me3aage 
print  chr$( 12 ) 
print  Z  print  Z  print 
print  Z  print  Z  print 
print  Z  print  Z  print 
print 

print  tab(16)i  *  You  have  made  an  incorrect  selection.  A  number* 
print  tab(161i  'from  1  to  6  must  be  entered  in  order  to  proceed.* 
print  tab(16)i  *Please  input  an  appropriate  number  when  the  main* 
print  tab(16)i  *menu  returns  to  the  screen.* 
print  Z  print  Z  print 

print  tab(30)i  *Please  press  <enter>  to  return  to  main  menu.* 
input  nothing^ 

endproc  !(»  main_menu_error_mossago  *) 


PROCEDURE  program.deseription 


03640  proc  program_de3cription 
03650  print  chr$( 12) 

03660  print  tab(27)i  *I1ILRET  Description* 

03670  print 

03630  print  tab(10)i  t 

03690  t  '  Welcome  to  the  niLRET  program.  This  program  was  developed* 
03700  print  tab(10)i  S 

03710  S  *at  the  Naval  Postgraduate  School  in  1983  and  revised  in  1985.* 
03720  print  tab(  10))  « 

03730  a  *The  program  utilizes  three  variations  of  the  entry-age  normal* 
03740  print  tab(lO))  a 

03750  a  'method  of  determining  retirement  costsi* 

03760  print 
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03770  print  tab(2Z)}  '1.  Individual  entry  a^e  normal' 

03780  print  tabl2Z)l  'Z.  Aggregate  entry  age  normal' 

03790  print  tab(Z2)i  ‘3.  Multi-year  expanded  individual' 

03800  print 

03810  print  tab(10)i  < 

038Z0  A  '  The  individual  subprogram  produces  detailed  information  at ' 
03830  print  tab(lO))  A 

03840  A  'the  individual  paygrade  and  year  of  service  entry  level.' 

03850  print  tab(  101)  A 

03860  A  'Retirement  costs  are  computed  from  user-supplied  information' 
03870  print  tabllOl)  A 

03880  A  'and  internally  stored  data.  Some  of  the  actuarial  and  economic' 
03890  print  tab(lOl)  A 

03900  A  'assumptions  may  be  changed  by  the  operator.' 

03910  print  '/.  print  V.  print 

039ZO  print  tab(40l)  'Please  press  <enter>  to  continue  s*=>' 

03930  input  nothing^ 

03940  print  ehrtllZ) 

03950  print  tab(Z7l)  'MILRET  Description  (cont.)' 

03960  print 

03970  print  tab(  lOlt  A 

03980  A  '  The  aggregate  subprogram  requires  the  operator  to  input  all' 
03990  print  tab(lO))  A 

04000  A  'of  the  data.  The  Information  stored  within  the  program  is  not' 
04010  print  tab(lOI)  A 

040Z0  A  'available  to  this  subprogram.  There  are  no  "hardwired”  prob-' 

04030  print  tab(lOI)  A 

04040  A  'ability  assumptions.' 

04050  print 

04060  print  tab(lOI)  A 

04070  A  '  The  multi-year  expanded  Individual  subprogram  computes  both' 
04080  print  tab)  101)  A 

04090  A  'normal  coats  and  total  retirement  costa  for  years  1953  through' 
04100  print  tab(lOi)  A 

04110  A  '198Z.  This  subprogram  utilizes  user-provided  data  and  stored* 

041 ZO  print  tabdOl)  A 

04130  A  'information.  The  operator  may  select  from  a  "summary"  or  a' 

04140  print  tabdOl)  A 

04150  A  '"detail"  presentation  of  the  retirement  cost  calculations.' 

04160  print 

04170  print  tab( 101)  A 

04180  A  '  When  you  are  returned  to  the  main  menu>  please  select  from' 
04190  print  tabdO))  A 

04ZOO  A  'the  options  listed.  If  this  is  your  first  time  with  this  pro-' 
04Z10  print  tabllO))  A 

04ZZ0  A  'graffl>  you  may  want  to  review  the  assumptions  first.' 

04Z30  print  print  print 

04240  print  tab(30))  'Please  press  <entar>  to  return  to  main  menu.' 

04250  input  nothing^ 

04Z60  endproe  !(*  program.description  «) 

04Z80 

04340!*  PROCEDURE  enter_data  * 

04350 ! «»M»*******MWMW»»**i 
04360  proc  enter_data 
04370  max.cola  =0.20 
04380  max.ssi  *  0.15  V. 

04390  max.adr  =0.20 
04400  max.am  =0.05 


mln_cola  =  0.00 
min_ssi  =  0.00 
min_adr  =0.00 
min_am  =  0.01 
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04410  maxjbp  »  0.30  min_pbp  =0.25 

04420  max_por  =1.00  V.  min_por  =  0.01 

04430  max_per  =1.00  Z  min_per  =  0.01 

04440  data_sel«»'0' 

04450  on  io«rr  i^nora  /  on  conv  ignore 
04460  while  (data_sel$<>‘8*  ) 

04470  call  print_data_menu 

04480  input  clata_sal$ 

04490  if  data_aali= ' 1 ■ 

04500  print  tabl05)t  'Enter  the  new  value  for  cola  la.g.>  .052).' 

04510  input  new_c  Z  f lag=io_etatus 

04520  call  numeric_valua_check( new_c >max_cola >min_cola  ) 

04530  if  1 ( new_c<=max_cola )  and  ( neu_c>=min_cola  ) )  and  (flag<>8) 

04540  cola  =  naw_o 

04550  endif 

04560  elaeif  data_ael$= ‘ 2' 

04570  print  tabi05)t  'Enter  the  new  aalar/  increaae  (e.g.#  .045).' 

04580  input  naw_aai  Z  f lag=io_atatua 

04590  call  numecic_value_check( new_aai >max_3si >min_sal ) 

04600  if  (  (  new_a3i<=max_aai  )  and  (new_aai>  min_aai  )  land  (flag<>8) 

04610  aalary_acala_incr  =  new_aai 

04620  endif 

04630  elaeif  data_3el$= ‘ S' 

04640  print  tabl05)>  > 

04650  S  'Enter  the  new  annual  diacount  rate  le.g.>  .075).' 

04660  input  new_adr  Z  f lag=io_3tatu3 

04670  call  numeric_value_checkl new_adr >max_adr >min_adr ) 

04680  if  ( (  new_adr<=max_adr )  and  ( new_adr>=niin_adr ) )  and  lflag<>8) 

04690  annual_dlac_rate  =  new_adr 

04700  endif 

04710  elaeif  data_sel*= '4' 

04720  print  tab(05))  ( 

04730  S  'Enter  the  new  multiplier  (e.g.>  .015).' 

04740  input  new_am  Z  flag*to_3tatus 

04750  call  numeric_value_check(  new_ani>fflax_affl>min_am  ) 

04760  if  ( (  new_am<*max_aiii )  and  (new_ajn>=min_am  ) )  and  IflagoP) 

04770  annuity _multipliar  =  new_am 

04780  endif 

04790  elaeif  data_selS='5' 

04800  print  tab(05)>  S 

04810  1  'Enter  the  new  maxiraun  Z  of  basic  pay  (e.g.>  .60).' 

04820  input  new _pbp  Z  f l3g»io_3tatus 

04830  call  numeric_value_check(  new_pbp  >max_pbp  >inin _j>bp  ) 

04840  if  ((new  _pbp<=max  _pbp)  and  (new  _pbp>=min  _pbp  ) )  and  IflagoS) 

04850  maxjpercent_of_pay  »  new_pbp 

04860  endif 

04870  elaeif  data_3el6= '6 * 

04880  print  'Enter  probability  of  new  officer  entrant  retiring.' 

04890  input  new_por  Z  f lag=io_statua 

04900  call  numeric_value_check( neu_por»max_por >min_por  ) 

04910  if  ( ( new_por<=max _por)  and  )  new_por>=min_por  ) )  and  (flag<>8) 

04920  off_retire_prob  =  new_por 

04930  endif" 

04940  elaeif  data_selda ' 7* 

04950  print  'Enter  probability  of  new  enlisted  entrant  retiring.' 

04960  input  new _per  Z  f lag=io_3tatus 

04970  call  numeric_value_check(new_per,max_per>min_per ) 

04980  if  ( ( new_per<=max_per )  and  (new _per>=min _per))  and  (flag<>8) 

04990  enl  retire_prob  =  new_por 

05000  endif" 


vV- 


05010 

05020 

05050 

05040 

05045 

05050 

05060 

05070 

05080 

05090 

05100 

05110 

05120 

05130 

05140 

05150 

05160 

05170 

05180 

05190 

05200 

05210 

05220 

05250 

05240 

05250 

05260 

05270 

05280 

05290 

05500 

05510 

05520 

05550 

05540 

05550 

05570 

05580 

05390 

05400 

05410 

05420 

05450 

05440 

05450 

05460 

05470 

05480 

05490 

05500 

05510 

05520 

05550 

05540 

05550 

05560 

05570 

05580 

05590 

05600 
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andlf 

•ndloop 

endproc  ’(*  entar_data  *) 

;  imitaainmananiiiiaiiaaaniiiiimaanaawiiaawiimmiiaaiiiiiiwaimaiiaiiiimiiimim* 

!»  "SUB"  PROCEDURE  numeric_valua_cheek  * 

’•  This  procadura  chacka  that  tha  valua  input  is  a  valid  • 

!*  nuneric  valua.  If  not>  an  arror  nassa^a  is  displayad.  • 


proc  nuiiiaric_valua_chackl  nsw_valua  .max_valus  >ain_valus  I 

s*io_status 

if  a>8 

print  chr9(12l  print  print  print  V.  print  V.  print 
print  tab( 15  I  v  A 

A  "  You  hava  antarad  an  alpha-numaric  vs.  nuaaric  valua." 
print  using  "  Only  numaric  values  front  t.t**" 

A  "  to  9.999  may  ba  antarad. " >min_valua tnax_valua 
print  X  print  '/.  print  X  print  tabll5lk  A 

A  "  Pleasa  press  <antar>  to  return  to  tha  Data  llanu  -i>" 

input  nothingt 

alsaif  (neH_valua  <  min_valual  or  (  neu_valua  >  max_valual 
print  chr$(12I  X  print  X  print  X  print  X  print  X  print 
print  tab! 15  1 1  A 

A  “  Tha  valua  you  hava  antarad  is  outside  tha  range" 
print  tab( 15  1 1  A 

A  "of  allowable  values.  Pleasa  input  a  numaric  valua" 

print  using  "  between  9.999  and  9.999  for  your"  ^A 

A  "  entry  ."  iain_valua  .»ax_valua 

print  X  print  X.  print  X  print  tab(15)i  A 

A  "  Pleasa  press  <enter>  to  return  to  tha  Data  Menu  ««>" 

input  nothings 
end  if 

andproc  !(*  numeric  ,valua_chaek  a» 


l« 

"SUB"  PROCEDURE  print.data.manu 

proc  print_data_monu 
colaS  »  ' 
salary S  »  ' 
discounts  V  ' 
multipliers  «  ' 
mostS  »  ' 
oprobS  »  ' 
eprobS  >  ' 
exits  »  ' 
print  chrS( 12 ) 
print  tabl50)»  'MILRETData' 
print  tabi  10  )  t  A 

A  '  Tha  following  actuarial  and  economic  values  are  currently' 
print  tab)  10  1 1  A 

A  'stored  within  tha  niLRET  program.  To  change  a  valua >  type' 
print  tabI  10  )  >  A 

A  'in  tha  selection  number  first  (i.a.>  from  1  to  7)  and  press' 
print  tab(  10  I  >  A 

A  '<anter>.  Hhan  tha  prompt  appaars>  type  in  tha  new  valua  as  a* 
print  tab(  10  I  >  A 

A  'decimal  (a.g.>  .0651  and  press  <enter>  again.  Repeat  this  as' 


1.  COLA  «  .«*•' 

2.  Salary  scala  incraasa  *  .999' 

5.  Annual  discount  rata  *  .999 
4.  Annuity  multipliar  *  .999 
5.  Maximum  percentage  of  base  pay  >  .999' 

6.  Officer  retirement  probability  *  .999' 

7.  Enlisted  retirement  probability  *  .999' 
8.  Ho  changes  or  changes  are  comp  lata' 
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05610 
05620 
05630 
05640 
05650 
05660 
056  70 
0S6a0 
05690 
05700 
05710 
05720 
05730 
05740 
05750 
05760 
05770 
05780 
05790 
05800 
05820 
35830 
05840 
05860 
05870 
05880 
05890 
05900 
05910 
05930 
05940 
05960 
05970 
05980 
06000 
06010 
06020 
06030 
06040 
06050 
06060 
06080 
06090 
06110 
06120 
06140 
06150 
06170 
06180 
06200 
06210 
06240 
06250 
06260 
06280 
06570 
06  720 
06730 
06740 
06750 


print  tabl  10  It  t 

t  'often  as  necessary.  Enter  an  “S"  to  return  to  the  main  menu.  ' 
print 

print  usin?  cola9icola 
print  usin;  salary $ •3alary_scale_incr 
print  usin;  discounts >annual_disc_rata 
print  using  multiplier$>annuity .multiplier 
print  using  most$ )max.percont_of .pay 
print  using  oprobd »off. retire jrob 
print  using  eprob9>enl.retire .prob 
print  exits 
print 

print  tabl 40  It  ‘Please  input  a  number  and  press  <enter>. ' 
endproc  print.data.menu  *1 


!*  PROCEDURE  individual.entry.age. normal  * 


proc  individual.entry.age.normal 
call  individual. subprogram.credit 
call  input.individual.data 
call  determine.year.factor 

curr .pay.for_retired.grade  *  curront.year.basepay I g >y  I 
retirement.year  *  entry.year  ♦  los 

number.of.years_to.retirement  »  (retirement  .year  -  current .year  I 
sal.incr  »  salary. scalo.incr 
curpay  -  curr.pay.for.retired .grade 
percentage.of  jay  *  los  «  annuity.multiplier 
projected.monthly.retirement.basepay  =  S 

t  fn.future. value!  curpay  .nuraber.of  jears.to.retirement  >sal_incr  I 
if  ( percontage.of  jay  >  maxjercent.of  jay  I 
percentage.of  jay  »  max jercent.of  jay 
endif 

if  I  entryjear>I9ao  I 

num jrs.to.ret  »  number.of  jears.to.retirement 
call  high_3  jay.avgl  num  jrs.to.ret, curpay  >sal_incr  I 
pay.basis.for.retirement  =  avgjay 
else 

pay.basis.for.retirement  *  projected.monthly.retirement.basepay 
endif 

projected.annual.retirement.annuity  *  t 

A  pay.basis.for.retirement  •  percentage.of  jay  *  12  !(monthsl 

para  »  projected.annual.retirement.annuity 

rle  >  remain.lif e.expect  Xadr  >  annual.disc.rate 

pv.ret jay.at.retire  »  S 

A  f  n  jv.of.retirement.benef  its.at.retirementi  para  >rle  >adr  I 

pvrpar  »  pv.ret  jay  .at.reti-e 

noytr  »  number.of  jears.to.retirement 

pv.ret jay.in.currjr  »  A 

A  fn  jv.of.retirement.benef  its.in.currentjearl  pvrpar  , noytr  >adr  I 

curr jr.norm.cost  -  A 

A  fn.current  jear.individual.normal.costi  pvrpar, los >adr  I 
call  prior jear.data 

if  I prev jr.ind.norra.cost  *  0.001  then  call  prior jear.normal.cost 
curr jr  jain.or.loss  *  curr  jr.norm.cost  -  prev jr.ind.norm.cost 
If  I  defer  jain.or.loss  >  (  -9999997 1  and  A 

A  I  defer  jain.or .loss  <  9999991 

n  »  number.of  jears.to.retirement  ♦  1 
factor  *  1/1  ( l'»annual  disc.rate  l**n  I 
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06790 

06800 

06810 

06840 

06850 

06860 

06870 

06890 

06920 

069$0 

06940 

06960 

06970 

07040 

07050 

07060 

07070 

07080 

07090 

07100 

07110 

07120 

07130 

07140 

07150 

07160 

07170 

07180 

07190 

07200 

07210 

07220 

072S0 

07240 

07250 

07260 

07270 

07280 

07290 

07300 

07310 

07320 

07325 

07330 

07340 

07350 

07360 

07370 

07380 

07390 

07400 

07410 

07411 

07420 

07430 

07440 

07450 

07460 

07470 

07480 


appld  _jaln_or_losas(corr  _yr_jain_or_loss*defor_jain_or_los3 U 
S  •  (annual_di3e_rate/( 1 -factor ) ) 

curr_i'r_ind_rot_cost  »  curc_j’r_norm_cost  ♦  appld_jain_or_loss 
tarjet_population_retiPing  =  nuiiiber_of_new_entrant3  *  4 
4  prob_of_new_entrant_retiring  *  tgt_grade_prob 

curpent_target_group_coat  =  targ8t_population_retiring  •  4 
4  curp_yr_ind_ret_eost 

andif 

call  di3pla/_individual_data 

call  di3play_i7idividuai_ratirement_co3t_proj actions 
call  display_targat_group_retiremant_cost_projections 
endproc  !  ( »  individual_entry_age_nonital  » ) 


<•  PROCEDURE  lndividual_subprograffl_credit  » 

proc  individual_subprogran_credit 

print  chr$(12)  V.  print  X  print  X  print  X  print 

print  tab( 10  ) )  4 

4  '  fou  ara  now  in  tha  Individual  MILRET  subprogram.  Detailed* 
print  tab(  10 1  >  4 

4  'information  for  ar.  individual  retirement  pay  grade  and  specific* 
print  tab( 10  I  >  4 

4  ‘year  of  service  entry  date  is  produced. 

print  X  print  X  print  X  print  X  print  X  print 

print  tabl30l>  *  Press  <enter>  to  continue  »=>* 

input  nothing^ 

endproc  !(«  individual_subprogram_credit  *) 


!•  PROCEDURE  input_individual_data 

proc  input_individual_data 
ind_data_sel$  »  *0* 
while  ( lnd_data_sel4  <>  *8*) 
call  individual_data_display 
input  ind_data_sel$ 
if  ind_data_sel0  =  *  1  * 

print  tab(51>  'Enter  paygrade  at  retirement.' 
input  grades 

call  determine_grade.f actor 

if  lg=27)  then  goto  7270 

los  =  avg_los_for_retired_grade(g ) 

ago  »  avg_age_for_retired_grade( g ) 

tgt_grada_prob  »  target_retir“d_grade_prob( g  ) 

if  (g>=l)  and  (g<=19) 

prob_of_new_entrant_retiring  »  enl_retlre _prob 
elseif  (g>s20l  and  (g<s26) 

prob_of_new_entrant_retiring  “  off_retire_prob 
endif 

call  de term ine_l if a_expectancy .factor 
if  ( z=32  )  then  goto  7270 
if  tg>=l)  and  (g<=9) 

remain.life.expect  “  enl_nondis_rotired_mortality( *  ) 
elseif  (g>>10)  and  (g<=26i 

remain.life.expect  =  off_nondis_retlred_mortallty( z ) 
endif 

elseif  ind_data_sel$  =  '2' 

print  tab(5)t  'Enter  year  of  service  entry.' 
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07490 

07500 

07510 

07SZ0 

07530 

07540 

07SS0 

07560 

07570 

07580 

07590 

0759Z 

07593 

07594 

07600 

07610 

07611 

07612 

07613 

07614 

07620 

07630 

07640 

07650 

07660 

07670 

07680 

07690 

07700 

07710 

07720 

07730 

07740 

07750 

07760 

07770 

07780 

07790 

07800 

07810 

07820 

07830 

07840 

07930 

07940 

07950 

07960 

07970 

07980 

07990 

08000 

08010 

08020 

08030 

08040 

08050 

08060 

08070 

08080 

08090 


input  entr>'_year 
on  conv  ig-nore 

if  ( entry _year >=1951 1  and  (entry_year<=1982  ) 
index  *  entry_year  -  1950 
if  (g>=l)  and  (g<=19) 

number_of_neM_entrants  =  1000  »  enlisted_aece3sion( index  ) 
elseif  (g>=Z0)  and  (g<=26l 

number_of_neH_entrants  =  1000  *  off icer.accessioni index J 
endif 
else 
loop 

print  chr$(12)  V.  print  ‘A  print  A  print  A.  print  A.  print 
print  tab(15U'  The  yeat-of -service -entry  is  outside 
S'  the  limits  of  ’ 

print  tab(15)>‘the  accession  matrices  11951-1982)  '  *S 
S' contained  in  the  ' 

print  tab) 15  )> 'KILRET  program.  Please  enter  the  '  *S 
S' number  of  new  ' 

print  tab) 15 )) 'entrants  in  initial  year  of  service  '  *S 
S'te.g. >  8500,  203000.  )' 

input  number_of_new_antrants  A.  on  conv  ignore 
num_new_ents  =  number_of_neu_entrants 
until  ( (  num_neH_ents>0 )  and  ( num_nevi_ents< 300000  ) ) 
endif 

elseif  ind_data_sel$  =  '3* 

print  tab(5)i  'Enter  LOS  for  this  paygrade' 
input  los 

elseif  ind_data_sel$  =  '4' 

print  tabl5))  'Enter  age  for  this  paygrade.' 
input  age 

elseif  ind_data_selS  =  'S' 

print  tab(5)i  'Enter  remaining  life  expectancy' 
input  remain_lifa_expect 
elseif  ind_data_sel^  =  '6' 

print  tab(5))  'Enter  probability  of  neu  entrant  retiring.' 
input  prob_of_neu_entrant_ retiring 
elseif  ind_data_sel9  *  '7' 

print  tab(5))  'Enter  prob.  of  entrant  retiring  in  tgt.  grade' 
input  tgt_grade_prob 
endif 
endloop 

endproc  !(*  input_individual_data  •) 


proc  individual_ 
paygrade$= ' 
entryyr^  =' 
avglos$  s' 
avgage$  =' 
lif expects ' 
newprob$  *' 

S 

retprob$  * ' 

S 

ind_axitd=' 
print  ehr$(lZ) 
print  tab(ZS))  ' 
print  tab)  10  ) )  S 


PROC£OURE_individual_data_display  « 

data_display 

1.  Paygrade  at  retirement  =  *»*' 

2.  Year  of  service  entry  *  9999' 

3.  Average  LOS  for  this  paygrade  *  t«.t' 

4.  Average  age  for  this  paygrade  =  #».#' 

5.  Remaining  life  expectancy  =  99.99' 

6 .  Probability  of  now  entrant  '  ♦  S 
'retiring  »' 

7.  Probability  of  entrant  retiring  in  'tS 
'tgt  grade  =' 

8.  Data  entry  complete' 


Individual  Subprogram  Data* 
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t  '  Start  with  iten  number  1  and  enter  the  desired  "Paygrade  at' 
print  tab(10)>  S 

i  ‘retirement."  Hext  enter  the  "Year  of  service  entry."  Data  items' 
print  tabi  10  )  i  t 

t  '3  through  7  will  be  supplied  by  the  program.  If  you  desire  to' 
print  tab( 10  1 1  < 

t  'change  themi  type  in  the  appropriate  number  and  press  <enter>. ' 
print 

print  using  paygrade$>grade$ 

print  using  entryyri >entry_year 

print  using  avglo3$>los 

print  using  avgage$iage 

print  using  lifexpee$>remain_life_expect 

print  newprob$>prob_of_new_entrant_ratiring 

print  retprob$ttgt_grade_prob 

print  ind_exitS 

print 

print  tab(40J(  ‘Please  input  a  number  and  press  <:enter>.  ‘ 
endproc  !(•  individual_data_display  •) 


PROCEDURE  determine_grade_factor 


proc  detarmine_grade_factor 
g=27 

if  ( graders' el '  )  then  g=l 
if  ( grade$= ‘o3 ‘ )  then  g=3 
if  ( graders ‘eS ' )  then  g=S 
if  (gradeS='e7' )  than  g*7 
if  ( grade®* 'a?' )  than  g-9 
if  (grade®*‘u2' )  then  g=ll 
if  (grade®s'w4' )  then  gslS 
if  ( grade®*' ole ' )  then  g*15 
if  ( grade®* ‘ o2e ' )  then  g*17 
if  ( grade®* ' oSe '  )  then  g»19 
if  ( grade®* ' o5 '  )  then  g*21 
if  (grade®* 'o7' )  then  g*23 
if  ( grade®* 'o9' )  then  g*2S 


if  ( grade®*‘e2' )  then  g*2 
if  1  grade®* ' a4 '  )  then  g=4 
if  ( grade®* 'e® '  )  then  g*® 
if  (grada®*'e8' )  then  g*8 
if  (grade®* 'ul '  )  then  g*10 
if  ( grade®* 'wS' )  then  g*12 
if  ( grade®* 'ol '  )  then  g*14 
if  ( grade®*' o2' )  then  g*l® 
if  (grade®s'o3' )  then  g*18 
if  ( grade®* 'o4' )  then  g*20 
if  ( grade®* 'o® '  )  then  g*22 
if  ( grade®* ' o8 ' )  then  g*24 
if  ( grade®* 'olO '  )  then  g*2® 


if  ( grade®* 'o5 '  )  then  g*21  if  (grade®*'o®' )  then  g*22 

if  (grade®* 'o7' )  then  g*23  if  ( grade®* ' o8 '  )  then  g*24 

if  ( grade®* 'o9' )  then  g*2S  X  if  ( grade®* 'olO '  )  then  g=2® 

if  not  ((g>sl)  and  (g<=26') 

print  chc®(12)  /.  print  print  print 

print  tab(19J)'  You  have  input  an  invalid  entry.  Please  ensure' 
print  tab( 18 ) > ' that  the  retirement  grade  is  a  lower-case  letter' 
print  tab(18)t'and  that  the  year  is  correct.  Please  press  the' 
print  tab( 18  I » ‘<enter>  key  to  continue.' 
input  nothing® 
endif 

endproc  !(*  input_paygrade_at_retiremont  •) 


PROCEDURE  determino_life_expectancy_f actor 


proc  determine.lif e_expectancy_f ac t or 


if  (age<35.5l  and  (age>*34.5)  then  z*l 
if  (aga<3®.5)  and  (age>*S5.5l  then  z*2 
if  (aga<37.5)  and  (age>*3®.S)  then  z*S 
if  (aga<S8.5)  and  (age>=57.5)  then  z=4 
if  (aga<39.5)  and  (aga>*38.5)  than  z*5 
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08750 

08760 

08770 

08780 

08790 

08800 

08810 

08820 

08830 

08640 

08850 

08860 

08870 

08880 

08890 

08900 

08910 

08920 

08930 

08940 

08950 

08960 

08970 

08980 

08990 

09000 

09010 

09020 

09030 

09060 

09070 

09080 

09090 

09100 

09110 

09120 

09130 

09140 

09150 

09200 

09210 

09220 

09230 

09240 

09250 

09260 

09270 

09280 

09290 

09300 

09370 

09380 

09390 

09400 

09410 

09420 

09430 

09440 

09450 

09460 


if 

(age<40.53 

and 

(ago>=39.5( 

then 

z=6 

if 

( age<41 .5 1 

and 

( age >=40. 5 ) 

then 

z=7 

if 

( age<42.5 ) 

and 

( age>=41 .5 ) 

then 

2=8 

if 

( age<43.5 ) 

and 

( age>=42.S ) 

then 

r  =  9 

if 

( age<44.5 ) 

and 

1 age>=43.S ) 

then 

z  =  10 

if 

( age<45.5 ) 

and 

(age>=44.5) 

then 

z  =  ll 

if 

I age<46 .5  I 

and 

( age >=45. 5 ) 

then 

z  =  12 

if 

( age<47.5  J 

and 

1  age >=46 .5 ) 

then 

r=13 

if 

1 age<48.5 ) 

and 

( age>=47.5 ) 

then 

z  =  14 

if 

1 age<49.5 ) 

and 

( age>=48.5 1 

then 

Z  =  1S 

if 

1 age<50 .5 ) 

and 

1  age>=49.5 ) 

then 

z=16 

if 

1 age<Sl .5 ) 

and 

( age >=50. 5) 

then 

r  =  17 

if 

( age<52 .5 ) 

and 

( ago>=Sl .5 ) 

then 

2  =  18 

if 

(age<53.5 ) 

and 

( age>=S2.5 ) 

then 

z=19 

if 

( age<54 .5 ) 

and 

( age >=53. 5 ) 

then 

2=20 

if 

( age<S5.5 ) 

and 

( age>=54.5 ) 

then 

2  =  21 

if 

( age<S6.5  I 

and 

(age>=55.S) 

then 

2=22 

if 

( aga<57.5 ) 

and 

( age >=56 .5 1 

then 

z=23 

if 

( age<58.S  I 

and 

( age>=S7.5 ) 

then 

Z=24 

if 

( age<S9.5 ) 

and 

(age >=58. 5) 

then 

z=25 

if 

( age<60 .5 ) 

and 

( age>=S9.5 ) 

then 

2=26 

if 

I age<61 .5 ) 

and 

( age>=60 .5 ) 

then 

z  =  27 

if 

( age<62 .5  1 

and 

( age>=61 .5 ) 

then 

2  =  28 

if 

( age<63.5 ) 

and 

( age>=62.5 1 

then 

2=29 

if 

( age<64.5 ) 

and 

( age>=63.S ) 

then 

2=30 

if 

lage>=64.5)  then  z=31 

endproc  !l*  detarmine_life_expectancy_ 

’•  PROCEDURE  determino_year_f actor 

» 

proc  determine_year_factor 

if  loa<22  then  y  =  l  '/.  if  los<24  and  los>=22 

if  los<26  and  los>=24  then  y=$  /.  if  los<28  and  los>=26 
if  los<30  and  los>=28  then  y=5  if  los>*  30  then  y=6 
endproc  !(*  deterwine_year_f actor  *1 

then  y=2 
then  y*4 

!*  FUNCTION  future_value 

» 

def  fn_future_value( pv,n>i ) 

!  pv.  -  current  basepay  at  retirement  pay^rade 

!  n  =  number  of  years  to  retirement 

!  i  =  annual  discount  rate 

fn_future_valuo  =  pv*( 1  ♦  i)**n 
f  nend 


•  KumiiiimmmMiiMimmiKxnmomiKwxmoiimexmiKmiimmmmiiiiimoeKMiimmiiKinno** 
!»  PROCEDURE  hi9h_3 _pay_av7  * 

!*  This  procedure  computes  the  average  of  the  last  S  years  * 
!•  basepay  for  those  personnel  who  entered  entered  the  service  • 

!»  after  1980.  It  assumes  that  the  highest  3  pay  years  are  the  • 

last  3  years  of  an  individuals  career.  * 

;  II  iweim  »■  ns*  UK  MSS  ewes  KxitMii  Slum  »«»»»■  a  sMSMMMiimimi  MM  usees  » 

proc  high_3_pay_avg( num _yrs>pay jssincr  ) 
yrs  =  ( num_yrs  -  2 ) 

two _yr_prev_pay  =  f n_future_value( pay >yrs issincr  ) 
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09470  one_yr_prev_pay  =  tuo_yr_pr«v_pay'»l  1  ♦  ssincr) 

09480  ratirement_yr_pay  =  one^r_prev_pay*(  1  ♦  ssincr) 

09490  sum_of_pays  =  ( two_yr_pretf_pay +one_yr_prov_pay ♦retirement_yr_pay  ) 

09S00  avg_pay  =  sum_of_pays/3 

09SI0  endproc  !(*  high_J_year_averajing  •) 

09520  ; xmi )i)H» mK»i»»iiiiiiiiii»iKinmi.»iH»»»i« m«ii»««mi misMKio iim<i»»im !<»»»)< iK«ii)nm»a 

09530 

09560  !i»»iniiHnnHnnHHHnHm»iii»«i>Mm.>n»iiiiiii«»m«iimi«m»)ii«><ini«mnii<iiii><»>nimii<m<i<iii<»»i 
09570  !*  FUNCTION  pv_of _retirement_benef its_at_retirement  * 

09590  def  fn_pv_of_retire!tient_benBf  it3_at_retirementl  pmt  >n  .i  ) 

09600  !  pmt  =  projected  annual  retirement  pay  in  retirement  year 

09610  !  n  =  remaining  life  expectancy  in  years 

09620  !  i  -  annual  discount  rate 

09630  !  pv  3  "present"  value  of  benefits  in  retirement  year 

09640  denominator  ~  ((lti)*»n) 

09650  pv  =  pmt  *  (( 1 -( 1/denominator  )  )/i  ) 

09660  fn  _pv_of_retirement_benef its_at_retirement  =  pv 

09670  fnend 

09630  . . . 

09690 

09720  tmiiii<i»»i»»«w»iHii»iKei»iiK«ii»iiii»eM»e»»i»eM«i««e»ii«w)min»e»»iHni)i»ei<)»mii«i»«i»e 
09730  !•  FUNCTION  pv_of_ratire_benef its_in_current_year  * 

09740  !i>m<KiHte>»n»i>ite»iM»m»ii«»i»m<iieeiiii»ii»iiiii<mimi«iiiiiii»<Hnnnn»««Mmm«iiii»»i<»aMi> 
09750  def  f n_pv_of_retirement_benef its_in_current_yearl f V ,n »i  ) 

09760  !  fv  ~  "present"  value  of  benefits  in  retirement  year 

09770  •  i  =  annual  discount  rate 

09780  !  n  =  number  of  years  to  retirement 

09790  <  pv  :  present  value  of  benefits  in  current  year 

09800  pv  =  fv/(  (  Ui  )**n  ) 

09810  fn _pv_of_retirement_benef its_in_current_year  -  pv 

09820  fnend 

09830  . . . 

09840 

09870 

09880  !*  FUNCTION  f n_current_year_individual_normal_eost  * 

09900  def  fn_current_year_individual_normal_cost( pv >n »i ) 

09910  !  pv  3  present  value  of  future  retirement  benefits 

09920  !  i  3  annual  discount  rate 

09930  !  n  -  number  of  periods  (length  of  service) 

09940  !  pmt  =  current  year  normal  cost  payment 

09950  denominator  *  ( ( ( 1 ti  )*»n  )-l ) 

09960  pmt  =  pv  *  (i/denominator) 

09970  f n_current_year_individual_normal_cost  -  pmt 

09980  fnend” 

09990  ToKKiK  «*»»»«  »»<miHm>iiii»»iii<»ii>t»ieii«e»»eiiii»iiife»ii»t>»iii<»ee»«e«iniiii««»«»ei<e 

10000 

10090  ;iii<mni»Kii)»»»»»»>ii>iiiw»e»it«eiiini»«»M«i»e»«»i<«ii»»i«eM»»tHt«»«ee»<n»et»»w»em< 
10100  !*  PROCEDURE  prior _yeBr_normal_cost  * 

lOIlO  . . 

10120  proc  prior_year_normal  cost 
10130 

10150  pr_pay  =  prior_year_basepay) g ty ) 

10160  pr_yrs  =  (number  of_years_to  retirement  1) 

10170 

10180  incr  *  prev_yr_salacy_scale_incr 

10190  prior_proj_pay  *  f n_future_valuo( pr _pay,pr _yrs>incr) 

10200 

10210  prior_yr  =  ( current_yoar  -  1) 
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if  (prior_yr  >  1980) 

call  hig'h_3_|)ay_avj(  pr_yrs.pr_pay  lincr  ) 
prior_pay_ba3i3  =  avgjay 
else 

prior_pay_ba3i3  =  prlor_proj_pay 


pr_proj_ann_ret_pay  =  prior_pay_basis  •  percentago_of _pay  •  12 

PP  "  Pr_proj_ann_rat_pay 

le  =  prev_yr_reinain_life_expect 

dr  =  prev_yr_annual_di3C_rata 

prioc_pv_at_rat  =  i 

t  f n_pv_of_ratirament_benef it3_at_retiremantl  pp ,1a  >dr ) 
prav_yr_ind_noEm_cost  =  S 

i  fn_currant_year_individual_normal_costl prior_pv_at_rat ,lo3 ,dr  ) 


andproc  !(*  prior_year_normal_co3t  *) 


PROCEDURE  display_lndivldual_data 


proc  di3play_individual_data 
print  chr4( 12 ) 

print  tab! 35))  'Individual  Data  Summary' 
print 

print  U3ing  payjrada4,gradaS 

print  U3ing  entryyr$,antry_year 

print  using  avgl03$,lo3 

print  using  avgaga$,aga 

print  using  lifaxpac$,ramain_life_axpact 

print  nawprobS )prob_of _new_entrant_ratiring 

print  retprob4)tgt_gradejprob 

print  tab) 14)) '8.  Current  year  * “ )current_year 

print  tab) 14)) '9.  Cola  s')cola 

print  tab) 13)) '10.  Salary  scale  increase  : '  )salary_seale_incr 
print  tab) 13)) 'll.  Annual  discount  rate  = ' )annual_disc_rata 
print  tab)13))'12.  Annuity  miltiplier  = '  )annuity_rnultiplier 
print  tab)  13)) '13.  Maximum  '/.  of  basepay  = '  )max_percent_of _pay 
print  V.  print 
print  print 

print  tab(4S))  'Press  <enter>  to  continue  ===>' 
input  nothing* 

andproc  !)*  display_individu3l_data  *) 


!*  procedure  display_individual_retirement_cost_projections 
!  KmiicmnumKitaiUDtKSinmumtKinnmX^iummutainoonwomnionnwnmomii 
proc  di3play_individual_retirement_cost projections 
print  chr4( 12 ) 

print  tab) 20))  'Individual  Retirement  Cost  Projections' 
print 

a*  =  '  1.  Current  monthly  ba.^epay  at  retirement  ' 

b*  =  'paygrade  =  *»♦*#*. W 

print  using  a*  ♦  b*)  cuErpay_for_retired_grado 

c*  3  ■  2.  Projected  monthly  basepay  at  retirement  ' 

d*  3  'paygrade  =  $*««««.)»' 

print  using  cS  ♦  d$)  projected_monthly_retirement_ba3epay 
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10940  e$  s  •  3.  Pay  basis  for  retirement  = 

10950  print  usin^  e$i  pay_basis_for_retirement 

10960  print  ‘  4.  Percentage  multiplier  =  ‘ >percentage_of_pay 

10970  f$  =  '  5.  Projected  yearly  retirement  annuity  =  .t9‘ 

10980  print  usin^  f$>  projected_annual_retirement_annuity 
10990  =  '  6.  “Present"  value  of  retirement  benefits  in  ' 

11000  3  'retirement  year  3 

11010  print  usin^  jS  +  hS>pv_ret_pay_at_rotira 

llOZO  i$  3  •  7.  Currant  present  value  of  retirement  ' 

11030  j$  3  'benefit:  =  $»«*<««.#*' 

11040  print  usinj  i$  ♦  jOj  pv_ret_pay_in_curr_yr 
11050  print  usin;  1 

11060  S  '  8.  Current  year  individual  normal  cost  »  $<**** . it ' >  t 

11070  i  curr_yr_norm_coat 

11080  print  print  X  print  print 

11090  print  tabl45)t  'Press  <enter>  to  continue  s==>' 

11100  input  nothinj^ 

11110  endproc  !(•  di3play_individual_retirement_cost_projectiona  •) 

. . . . . 

11130 

1 1 140  fsKitaxioiHm  . . . 

11150!*  procedure  diaplay_tar5et_3roup_retirement_cost_projections  * 

11160!i«»«ii»<mii»i«»**»»««»»*»**iii»««»»«*»*m«*»«**3»*»«»***«*««*«*>«» . . 

11170  proc  display_target_jroup_retirement_cost_projections 
11180  print  chr«ri2) 

11190  print  tab! 20))  'Target  Group  Retirement  Cost  Projections' 


11200  print 

11210  k$  3  •  1.  Current  year  individual  normal  cost  . '*t 

11220  i  '«  32,Z2Z,ZZZV.«ta' 

11230  print  using  k$)curr_yr_norm_cost 

11240  1$  3  '  2.  Previous  year  individual  normal  cost  . ' 

11250  t  '$  az,zzz,zzzv.»«a' 

11260  print  using  IS jprev_yr_ind_norm_cost 

11270  m$  3  •  3.  Current  year  gains  or  losses  . 

11280  i  '$  azzz.zzzv.fta* 

11290  print  using  mS»curr_yr_gain_or_loss 

11300  nS  3  >  4,  Deferred  gains  or  losses  . '♦* 

11310  S  '$  3ZZZ,ZZZV.««3' 

11320  print  using  n$)defer _gain_or_loss 

11330  oS  3  '  5.  Applied  gain  or  loss  . '♦* 

11340  I  '$  SZ,ZZZ,ZZZV.*9S' 

11350  print  using  o$)  appld_galn_or_losa 

11360  p$  3  '  6.  Current  year  individual  retirement  cost  . ' 

11370  i  '$  3ZZ,ZZZ,ZZZV.f«S' 

11380  print  using  pS»curr_yr_ind_ret_cost 

11390  qS  3  •  7.  Number  of  new  entrants  in  entry  year  . '  ♦* 

11400  S  '  3ZZZ>ZZZ3' 

11410  print  using  qS jnumber_of_new_entrants 

11420  rS  3  •  8.  Target  population  retiring  . '♦* 

11430  S  '  3ZZ,ZZZ3' 

11440  print  using  rS>target_population_retiring 

11450  sS  3  '  9.  Current  target  group  retirement  cost  . '+i 

11460  i  '$aZ.ZZZ.ZZZ,ZZZV.*«3' 

11470  print  using  sSjcurrent_targot_group_cost 

11480  print  print  X  print  X  print  X  print 

11490  print  tab) 45))  'Press  <ontor>  to  continue  »=>• 

11500  input  nothings 


11510  endproc  !(*  display_target_group_retlremont_cost_projoctions  *) 

11520!  . . . . . 

11525 
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. . . . . . . . 

11540!*  PROCEOURE  prxor_>'ear_data  * 

11550  . . . 

11620  proe  prior_>'ear_data 

11630  prev_yr_ind_nor!ii_coat  a  0.00  defer_gain_or_losa  *  0.00 

11650  prev_i'r_annual_disc_rata  =  annual_disc_cata 

11660  prev_yr_3alary_scale_incr  *  salary_scale_incr 

11670  prev_yr_remain_lj.f e_expect  =  remain_lif a_expect 

11690  on  conv  ignore 

11700  data_sel$  a  'o* 

11710  while  (data_sel$<>‘6'  > 

11720  call  print_prior_!iienu 

11730  input  data_3el$ 

11740  if  data_sel«= ‘ 1 • 

11750  print  tabl05)>  8 

11760  S'Enter  previous  year  individual  normal  cost  (e.g.t  5823.6).' 

11770  input  prev_yr_ind_norm_cost 

11780  elseif  data_sel«a'2-" 

11300  print  tab( 05  ) »  t 

liaiO  A  'Enter  any  deferred  gains  or  losses  (e.g.>  127.24).' 

11820  input  defer_gain_or_loss 

11830  elseif  data_sel$='3' 

11850  print  tab(05)i  S 

11860  S  'Enter  previous  year  salary  scale  increase  (e.g.>  .045).' 

11370  input  prev_yr_salary_scale_incr 

11880  elseif  data_sel$='4‘ 

11900  print  tab(05)t  S 

11910  t  'Enter  previous  year  annual  discount  rata  (a.g.>  .072).' 

11920  input  prev_yr_annual_disc_rate 

11930  elseif  data_sel$a ‘S ■ 

11950  print  tab(0S)>  t 

11960  S  'Enter  previous  year  life  expectancy  (e.g.>  31.25).' 

11970  input  prav_yr_remain  life_expect 

11980  endif 

11990  endloop 

12000  endproc  !(»  prior_year_stuff  ») 

12020  proc  print_prior_menu 

12030  pyinc$  a  •  1,  Previous  year  individual  normal '»< 

12040  S  ‘  cost  a 
12050  dgold  a  ' 

12060  pyssi$  a  ' 

12070  pyadr«  =  ■ 

12080  pyle9  a  • 

12090  exits  a  • 

12100  print  chrS( 12) 

12110  print  tab(25))  'Previous  Year  Normal  Cost  Data' 

12120  print 

12130  print  tab) 10)i  « 

12140  S  '  The  previous  year  individual  normal  cost  will  be  calculated' 
12150  print  tab) 10  )»  « 

12160  i  'based  on  tt)e  current  year  actuarial  assumptions  and  other  data' 
12170  print  tab)  10)t  * 

12180  i  'displayed  below.  However^  different  values  may  be  entered  by' 
12190  print  tab)  10)>  t 

12200  i  'selecting  the  appropriate  numbecf  pressing  <enter>f  and  then' 
12210  print  tab)  10)»  « 

12220  t  'entering  your  data.  Enter  any  knovn  deferred  gains/losses . ' 
12230  print  tab)10)»  t 

12260  S  'If  you  enter  a  value  for  previous  year>  it  will  be  used  instead' 
12262  print  tab)10)i  * 


2.  Deferred  gains  or  losses  * 

3.  Previous  year  salary  scale  increase  ^  .***' 

4.  Previous  year  annual  discount  rats  -  .tW 

5.  Previous  year  life  expectancy  =  tt.tt' 

6.  No  changes  or  changes  are  complete' 


J 


55 


ty. 


PAGE  19 


12264  S  'of  on«  being  computed  by  the  program.' 

12270  print 

122S0  print  using  pyincdiprev _yr_ind_norni_cost 
12290  print  using  dgol$ »defar_gain_ot_loss 
12300  print  using  pyssid>prev _yr_salary_scale_incr 
12510  print  using  pyadrd>prav_yr_annual_disc_rate 
12320  print  using  pyla9,prev_yr_ramain_lif a_expect 
12330  print  exit$ 

43910  print 

43920  print  tab(40)(  'Please  input  a  number  and  press  <enter>. 

43930  endproc  !(*  print_prior_menu  *) 

43950? 

43960 

50010!*  PROCEDURE  aggragata_entry_ago_normal  • 

50020  !»»»m»»i«*»«**««**»«»»i<*«»»ii»»***«**»***»**«*«««**»«***«*««*«»*«»***« 

50030  proc  aggregate_antry_age_normal 

50040  call  aggregata_curr_data_ontry 

50050  call  aggregate_prev_and_total_data_entry 

50060  endproc  ?(•  aggragata_antry_age_normal  *1 

50065 

S0070 !  »»«*»»»***MW»**»«****II*»*MM**»******«***»M»«»»»M»*»*I<M*M*«»I<*»»»W*» 

50080!*  PROCEDURE  aggragate_eurr_data_entry  * 

50090  . . .  ir*w»i<«n*»M)H>**«w»**»*ii**»»M»*w»M*M*w**«M»*»«»M***» 

50100  proc  aggregato_curr_data_antry 
50110  annua l_disc_ rata  -  .060 
50120  defar_gain_or_losa  =  0.00 
50140  on  conv  ignore  on  ioerr  ignore 
50150  data_sel$  =  'O' 

50160  while  ( data_sel«<>'6 '  ) 

50170  call  print_curr_agg_monu 

50130  input  data_sal$ 

50190  if  data_sel$»'l' 

50200  print  tabtOSU  'Enter  present  value  of  future  benefits.' 

50210  input  pres_val_of_fut^ban 

50220  norm_cost_per_fac  *  pres_val_of_fut_ben/pres_val_of_fut_comp 

50240  elseif  data_3el$*'Z' 

50250  print  tablOSlt  'Enter  present  value  of  future  compensation.' 

50260  input  pres_val_of_fut^comp 

50270  norm_cost _per_fac  *  pres_val_of_fut_ben/pros_val_of_fut_corap 

50280  elseif  data_sel«= • 3' 

50300  print  tab(05U  'Enter  new  normal  cost  factor  (e.g.>  .526).' 

50310  input  new_norm_cost_p*r_fac 

50320  norm_coat_per_fac  =  now_norm_cost_per_fac 

50330  elseif  data_sel$* '4' 

50350  print  tabl05)>  'Enter  current  FY  total  base  pay.' 

50360  input  cur_fy_tot_bp 

50370  endif 

50380  endloop 

50390  endproc  !(*  aggregate_curr_data_antry  *) 

50400!  »»i*»w)<i»*»i«*»i<»ii**w»*w»i»iii»wi«»*****«**»***  »«***»*«»*»**»»******»*»*»» 

50410 

S0420 ! w****************************************************************** 
50430!*  PROCEDURE  print_curr_agg_monu  * 

S0440 ! ****■*■»*■■«»»*»»**«*»» w******************************************* 

50450  proc  print_curp_agg_menu 

50460  cup_fy_nopa_coat  =  norm_cost_pep_fac  *  t 

50470  (  cup_fy_tot_bp 

50480  pvofbd  *  '  1.  Present  value  of  future  benefits  . ' 

50490  S' .  «azzz,zzz,zzz>zzzv.t«3' 
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50500 

50510 

50520 

50530 

50540 

50550 

50560 

50570 

50580 

50590 

50600 

50610 

50620 

50630 

50640 

50650 

50660 

50670 

50680 

50690 

50700 

50710 

50720 

50730 

50740 

50750 

50760 

50770 

50780 

50790 

50800 

50810 

50820 

50830 

50840! 

50850 

50860! 

50870! 

50880! 

50890 

50910 

50920 

50930 

50940 

50950 

50960 

50970 

50980 

50990 

51000 

51020 

51030 

51040 

51050 

51060 

51080 

51090 

51100 

51110 

51120 


pvofc$  3  '  2.  Present  value  of  future  compensation 

*• .  $azzz,zzz.zzz,2zzv.#*a* 

ncpf$  -  ‘  3.  Normal  cost  percentage  factor  . '  vS 

*■ .  av.zzzza- 

cfytpS  =  '  4.  Current  FY  total  base  pay  . '♦* 

S' .  $azzz,zzz>zzz>zzzv.««a' 

cfync$  =  '  5.  Current  FY  active  force  normal  cost 

S'.  ...  $azzz,zzz.zzz>zzzv.««a‘ 

exits  3  •  6.  No  changes  or  changes  are  complete' 

print  chr$( 12  1 

print  tab(25J>  'Aggregate  Current  FY  Data' 
print 

print  tabi 10  )  i  S 

S  '  Enter  the  present  value  of  future  benefits*  the  present  ' 
print  tab(  10 )  >  S 

S  'value  of  future  compensation*  and  the  current  FY  total  base* 
print  tab(  101)  S 

S  'pay.  The  normal  cost  percentage  factor  and  the  current  FY  ' 
print  tab( 10  )  l  S 

S  'active  force  normal  coat  will  be  computed.  If  you  desire  to  ' 
print  tab!  10  1 »  S 

S  'change  the  normal  coat  percentage  factor*  do  so  and  a  new  ' 
print  tab!  10  J  t  S 

S  'active  force  normal  cost  will  be  computed.' 
print 

print  using  pvofbS.pras_val_of_fut_ben 
print  using  pvofcS*prea_val_of_fut_comp 
print  using  ncpf S*norm_cost_par_fac 
print  using  cfytpS*cur_fy_tot_bp 
print  using  cfyncS*cur_fy_norm_cost 
print  exits 
print 

print  tab(40U  'Please  input  a  number  and  press  <enter>. 
endproc  !(•  print_curr_agg_menu  *) 


*  PROCEDURE  aggregateJtev_and_total_data_entty 

proc  aggtegate_prev_and_total_data_entry 
on  conv  ignore  on  ioerr  ignore 
data_selS  =  'O' 
while  (data_selS<>'a' I 

call  print_prev_and_total_agg_menu 
input  data_3elS 
if  data_selS= '  1 ' 

print  tab(0S)>  'Enter  previous  FY  normal  cost  percentage.' 
input  prev_fy_norm_cost_per 

prav_fy_norm_cost  =  prev_fy_norm_cost _per  *  prew_fy_tot_bp 
cur_fy_gain_lo3S  =  ( cur_f y_norm_cost  -  prev_fy_norm_cost ) 
elseif  data_selS* ' 2 ' 

print  tab(05)>  'Enter  previous  FY  total  base  pay.' 
input  prev_fy_tot_bp 

prev_fy_norm_cost  =  prev_fy_norm_cost _per  *  prev_fy_tot_bp 
cur_fy_gain_loss  =  1 cur_fy_norm_cost  -  prov_fy_norm_cost ) 
elseif  data_selS3 ' 3' 

print  tab(05U  'Enter  previous  FY  active  force  normal  cost, 
input  new_prev_fy_norra_cost 
prov_fy_norm_cost  =  now_prov_fy_norm_cost 
cur_fy_gain_loss  =  (cur_fy_norm_cost  -  prav_fy_nocm_cost  1 
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51140  elseif  data_sel5»*4‘ 

51150  print  tab(05)i  'Enter  current  FY  actuarial  jains/losses. ' 

51160  input  new_cur_fi'_jain_losa 

51170  cur_fy_jain_loa3  =  naw_cur_fy_yain_loss 

51190  elseif  data_sel$=‘5* 

51200  print  tabtOSli  'Enter  any  deferred  ^ains  or  losses.' 

51210  input  def_3ain_loss 

51220  endif 

51230  endloop 
51240  endproc 

5 1'2S0 !  . . . 

51260 

. . . 

51280!*  PROCEDURE  print_prev_and_total_agy_nienu 

512901  »»»*»»**»*»*ii»mi*»i»*»»>mM«***««»«***»»**»««***»*****»m«*»»**M*»**« 

51300  proc  print_prov_and_total_agg_menu 

51320  cur_fy_g’ain_loss  =  cur_fy_norm_cost  -  prev_fy_non»_eost 
51330  cur_fy_gain_loss_appld  =  ( cur_fy_gain_loss  *  def_gain_loss )  *  S 
51340  S  ( annual_di3c_rate/( l-( 1/C t l+annual_disc_rato J**20  ) ) ) ) 

51350  our_fy_tot_tet_cost  *  cur_fy_norm_cost  ♦  cur_fy_jain_loss_appld 

51360  pynept  =  ‘  1.  Previous  FY  normal  cost  percentage  . ' *t 

51370  S' .  av.zzzza' 

51380  pytbp$  -  ‘  2.  Previous  FY  total  base  pay  . '  *1 

51390  S' .  $azzz,zzz>zzz>zzzv.cna' 

51400  pyfnc$  >  '  3.  Previous  FY  active  force  normal  cost 

51410  S' .  $azzz,zzz.zzz,zzzv.««a' 

51420  cyaglS  s  '  4.  Current  FY  actuarial  gains/losses  . ‘ 

51430  S' .  $azzz,zzz,zzz,zzzv.tM»' 

51440  defglS  *  *  5.  Deferred  gains  or  losses  . '  *t 

51450  S' .  $azzz,zzz>zzz,zzzv.««a' 

51460  cyglaS  s  ■  6.  Current  FY  gains/losses  applied  . '♦S 

51470  S' . $azzz,zzz,zzz.zzzv.»«a' 

51480  cytrcS  ^  •  7,  Current  FY  total  retirement  cost  . '+S 

51490  S' .  9SZZZ,2ZZ,ZZZ,ZZZV.tta‘ 

51500  exitt  *  '  8.  No  changes  or  changes  are  complete* 

51510  print  chr«(12) 

51520  print  tab(16)i  'Aggregate  Previous  FY  and  Current  FY  Total  Data' 
51530  print 

51540  print  tabC 10  )t  S 

51550  S  '  Enter  the  previous  FY  normal  cost  percentage >  the  previous' 
51560  print  tabC  101)  S 

51570  S  'FY  active  force  normal  cost*  and  any  deferred  gains  or  losses' 
51580  print  tabC 10))  S 

51590  S  'to  compute  the  previous  FY  active  force  normal  cost*  current' 
51600  print  tabC 10))  S 

51610  S  'gains/losses  applied*  and  the  current  FY  total  retirement  cost. 
51620  print 

51630  print  using  pyncpS*prev_fy_norm_cost_por 
51640  print  using  pytbp8*prev_fy^tot_bp 
51650  print  using  pyfnct*prov_fy_norm_cost 
51660  print  using  cyagl$>cur_fy_gain_loss 
51670  print  using  defglt»def_gain_loss 
51680  print  using  cyglaS>cur_fy_gain_loss_appld 
51690  print  using  cytrc*>cur_fy_tot_rot_cost 
51700  print  exits 
51710  print 

51720  print  tabC 40))  'Please  input  a  number  and  press  <*nter>. 

51730  endproc  !C*  print_prev_and_total_agg_menu  *) 

. . . 

51740 


PROCEDURE  print_prev_and_total_agg_menu 
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60000  f 

60010  !•  PROCEDURE  expanded_inulti_yaar_indivielual_nonnal  * 

60020  !ii»>ia»mi mm IH» )»■»«»« aaii mcamiii iiwwa It »««a»«ii«»«aiHiiii>Kii«iii»i>«if»ii mi i>»»»i»i« 
60030  proc  expanded_multi_year_individual_normal 
60040  print  chr$(12)  X  print  X  print  X  print 
60050  print  tab( 101k  S 

60060  t  ‘  You  are  now  in  tbe  multiyear  expanded  individual  normal  coet' 
60070  print  tabllOlt  6 

60080  t  'portion  of  the  program.  Hote  that  in  this  section  an  answer  of 
60Q90  print  tab! 10 U  t 

60100  t  '0  (zero I  to  an  adjustment  question  means  no  change.' 

60110  print  X  print 

60120  Print  'Input  desired  discount  rata  as  decimal  la.g.  .08). 

60130  input  di 

60140  print  'Input  desired  rate  of  salary  Increase  as  decimal  (e.g.  .0551. 
60150  input  in 

60160  print  'Input  desired  X  rate  of  retired  pay  per  year  of  duty  (e.g.  .021 
60170  input  dl 

60180  print  'Input  desired  maximum  X  of  pay  basis  at  retirement  (e.g.  .751. 
60190  input  dm 

60200  print  'Input  minimum  los  required  to  retire  (e.g.  20). 

60210  input  mrt 

60220  print  'Input  adjustment  to  entrant  retirement  probability  for  officer: 
60230  print  '(e.g.  -.02).  The  Isaseline  value  is  0.4. 

60240  input  pror 

60250  print  'Input  adjustment  to  entrant  retirement  probability  for' 

60260  print  'enlisted  personnel. 

60270  print  '(e.g.  -.02).  The  baseline  value  is  0.12. 

60280  input  proq 

60290  print  'Input  adjustment  to  LOS  and  age  at  retirement  (e.g.  -2). 

60300  input  adj 

60310  print  'Input  adjustment  to  life  expectancy  at  retirement  (e.g.  ^3). 
60320  input  long 

60330  print'If  you  wish  to  sea  only  summary  totalst  type  sum.' 

60340  print  'If  you  wish  to  see  full  detail>  type  detail.' 

60350  input  c$ 

60340  deltsl 
60370  gs99 
60380  tttre=0 
60390  yssl953 
60400  pg«='al' 

60410  print '  itmimiMmiaawmiMiiaeiiiiMmieweeeewMawmiwiiswifwmiiiawmtmimfif  ■ 
60420  ttrc=0 


60430 

if 

(pg$='el '  ) 

then 

g  =  I 

60440 

if 

(pg«='e2' ) 

then 

g=2 

60450 

if 

(pg«='e3'  ) 

then 

g*3 

60460 

if 

( pgS= 'e4'  ) 

than 

g=4 

60470 

if 

(pg$='e5'  ) 

then 

g=5 

60480 

if 

( pg$s 'e6 '  ) 

then 

g=6 

60490 

if 

(pg«s'e7' ) 

then 

g=i7 

60500 

if 

( pg$= 'e8' ) 

then 

g=8 

60510 

if 

(pg*='a9'  ) 

then 

g»9 

60520 

if 

(pg$='wl'  ) 

then 

g  =  10 

60530 

if 

(pg«='u2' ) 

then 

g=ll 

60540 

if 

(pg$='w3'  ) 

then 

g  =  12 

60550 

if 

(pg$3'w4' ) 

then 

g>13 

60560 

if 

(pgSs'ol '  ) 

then 

g*14 

60570 

if 

(pg^s'ole' 

)  then  g*lJ 

60580 

if 

( pg$a'o2'  ) 

then 

g:16 

60590 

if 

( pg4> 'o2a ' 

)  then  g>i; 
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60600 

60610 

60620 

60630 

60640 

60650 

60660 

60670 

60680 

60690 

60700 

60710 

60720 

60730 

60740 

60750 

60760 

60770 

60780 

60790 

60800 

60810 

60820 

60830 

60840 

60850 

60860 

60870 

60880 

60890 

60900 

60910 

60920 

60930 

60940 

60950 

60960 

60970 

60980 

60990 

61000 

61010 

61020 

61030 

61040 

61050 

61060 

61070 

61080 

61090 

61100 

61110 

61120 

61130 

61140 

61150 

61160 

61170 

61180 

61190 


if  (pj*»‘o3')  th«n  j«18 
if  (p;$>'o3«'l  then  9^19 
if  (pgi*'o4')  then  g»20 
if  (pg^s'oS'l  then  g*21 
if  (pg6a‘o6')  then  3-2Z 
if  (pj$a'o7')  then  g=23 
if  (py$=’o8‘)  then  j=24 
if  (pg9=‘o9')  then  j=2S 
if  (P7$a'ol0'l  then  ^=26 
if  (ga99)  then  goto  60370 
los=avg_los_f or_retire<i_gcade(  g  (♦adj 
if  ( los  <mrt  I  then  losan^t 
if  (loa<22)  and  ( loa>a20 1  then  l^l 
if  (1o3<24)  and  (loa>a22)  then  1^2 
if  ( Ios<26  )  and  (los>a24l  then  1=3 
if  (los<2a)  and  (los>=26)  then  1=4 
if  ( loa<30  I  and  (los>=28J  then  1=5 
if  (los>=30)  then  1=6 
bp=current_year_basepayl  g  >1 ) 
cf=1983 
rf  =  los tya 
n=rf -ef 


ppsbp 

for  i=l  to  n 
tpsppein 
ppitptpp 
next  i 

fae  =lo9  •  dl 
if  (facxte)  then  fae=dm 
if  (ys>1980l  then  goto  61650 
annsfac*pp*12 

if  (pgda'el'l  then  goto  61500 
if  (n<0l  then  goto  61820 

if  ( d( g J*adj<mrt  I  and  imrt>20)  then  goto  61780 
ag»f (g  l^adj 


if 

( ag<l 7*mrt ) 

then  ag»17*mrt 

if 

(ag<37) 

and 

lag>»36) 

then 

X»1 

if 

( ag<38 1 

and 

(ag>s371 

then 

1=2 

if 

(ag<39) 

and 

( ag>=38 ) 

then 

zs3 

if 

(ag<40  ) 

and 

(ag>=39) 

then 

1*4 

if 

(ag<41  ) 

and 

(ag>=40 1 

then 

x=5 

if 

(ag<42) 

and 

(ag>s41 ) 

then 

X*6 

if 

(ag<43) 

and 

'ag>=42) 

then 

X=7 

if 

(ag<44l 

and 

( ag>*43 1 

then 

x=8 

if 

( ag<4S ) 

and 

( ag>»44 ) 

than 

1*9 

if 

( ag<46 ) 

and 

(ag>»45 1 

then 

x*10 

if 

(ag<47) 

and 

( ag>=46 ) 

than 

x*ll 

if 

( ag<48  1 

and 

( ag>»47 ) 

then 

x»12 

if 

(ag<49) 

and 

( ag>*48 ) 

then 

x»13 

if 

( ag<Sa  1 

and 

(ag>»49( 

then 

X»14 

if 

(ag<Sl  ) 

and 

( ag>=50 ) 

then 

z  =  15 

if 

(ag<S2) 

and 

(ag>=51  I 

then 

x=16 

if 

(ag<S3) 

and 

( ag>»52 ) 

then 

z»17 

if 

(ag<54» 

and 

tag >=531 

then 

1*18 

if 

( ag<5S  I 

and 

1 ag>»54 1 

then 

z»19 

if 

( ag<S6 ) 

and 

(ag>*S5) 

then 

z»20 

if 

(ag<57) 

and 

( ag>=S6 » 

than 

x*21 

if 

lag<S8) 

and 

1 ag>»57 ) 

then 

x*22 

if 

(ag<59) 

and 

( ag>*58 1 

then 

x*23 

if 

( ag<60 ) 

and 

(ag>=59) 

then 

1*24 
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61200 

61210 

61220 

61230 

61240 

61250 

61260 

61270 

61280 

61290 

61300 

61310 

61320 

61330 

61340 

61350 

61360 

61370 

61380 

61390 

61400 

61410 

61420 

61430 

61440 

61450 

61460 

61470 

61480 

61490 

61500 

61510 

61520 

61530 

61540 

61550 

61560 

61570 

61580 

61590 

61600 

61610 

61620 

61630 

61640 

61650 

61660 

61670 

61680 

61690 

61710 

61720 

61730 

61740 

61750 

61760 

61770 

61775 

61780 

61790 


if 

If 

if 

if 

if 

if 

if 

if 


Ia9<61)  and  (ag>=60)  than  z=25 
(ag<62)  and  lag>=61)  then  z=27 
lag<631  and  lag>=62)  then  z=28 
( ag<64  I  and  (ag>=63)  then  z-29 
(ag<65l  and  (ag>-64)  then  z=30 
( ag>=65  )  then  z=31 
lg<=9l  then  li=e(z) 
lg>=10J  then  li=oz(z) 
li=li+lonj 
^  =  1 1+di  )**li 
pre=ann*(  ( l-(  l/(^  )  )/di  I 
ts(  ( l+di)**loa)-l 
nc=pte*( di/t  1 
rc  =  nc 

if  (g>=20)  then  goto  61380 
if  (g<20)  then  pro=.12 
if  lg<20l  then  prop=pro^ 
goto  61400 

if  (g>=20)  then  pro=.4 
if  (g>*20)  then  prop-pror 
pro=t  pro>prop )*delt 
deltsl 

tgt=target_rotired_grado_prob( g ) 

if  lys>1950J  and  (ya<1983)  then  goto  61750 

pee=pro*tgt*new 

trc=pec*rc 

ttre=ttrc*trc 

if  (c$-‘suni')  then  goto  61490 

print  using  'UllflffttW*  ,pg6tne>trc 

goto  61850 

print  'Year  of  Entry  *  '  »ya 
if  (c6-‘sun'l  then  goto  61640 
print  'DISCOUKT  RATE  »‘jdl 

■SAURY  SCALE  ESTIMATOR  »  ‘itn 

•ADJUSTMEKT  TO  ENTRAKT  RETIREMEKT  PROBABlLm  FOR’ 
'OFFICERS  »  ‘jptor 

•ADJUSTMEKT  TO  EKTRANT  RETIREMENT  PROBABILITY  FOR* 
■ENLISTED  PERSONNEL  s  ‘  >pro<i 

■ADJUSTMENT  TO  LOS  AND  AGE  AT  RETIREMENT  »  ' >adj 
■ADJUSTMENT  TO  LIFE  EXPECTANCY  AT  RETIREMENT  »  ‘>long 
■RETIREMENT  PAY  BASIS  PER  YEAR  OF  SERVICE  »  • »dl 
■RETIREMENT  PAY  CEILING  AS  PERCENTAGE  OF  BASIC  =  '  »di» 
■MINIMUM  LOS  FOR  RETIREMENT  =  '  n»rt 
■PAvr,RADE  NORMAL  COST  TOTAL  COST' 


print 
print 
print 
print 
print 
print 
print 
print 
print 
print 
print 
goto  60920 
a=n-2 
rpsbp 

for  k*l  to  a 
vpzrp«in 
rpsvptrp 
next  k 

sp  =  ( in*rp  l+rp 
pp  =  <  sptrptpp  )/3 


goto  60900 

if  (g>=20)  then  newalOOOeoff lcer_accesslon( ya-195a  ) 
if  (g<20J  then  newsl000«enllsted_accession( YS-19S0 ) 
goto  61440 

average_lo#»avg_los_for_retlrod_grade( g ) 

ag=avg_age_for_retited_grade(g  J*i«rt-avorage_los-adJ 

REM  FORMUU  TO  AJD  ATTRITON  IF  AVG  LOS  <  MLOS  FOR  RETIREMENT 
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61800  delt  =  I .00**(mrt-averaga_los-adj  ) 

61810  goto  60950 
61320  ne:0 
61830  trc=0 
61840  goto  61460 

61850  IF  lpg$=‘ol0')  THEN  GOTO  62100 
61860  IF  (pg$=‘o9')  THEN  PG«=*010' 

61870  IF  (pg«='oa')  THEN  PG«=‘09' 

61880  IF  (pg*=-o7*)  THEN  PG«='Oa' 

61890  IF  (pg«='o6'l  THEN  PG«=’07* 

61900  IF  (pg$='oS')  THEN  PG$=‘06' 

61910  IF  (pg«=‘o4')  THEN  PG«=‘Q5* 

61920  IF  (pg$='o3a')  THEN  PGS='04’ 

61930  IF  (pg«=‘o2a')  THEN  PG«='03E‘ 

61940  IF  (PG«S'01E‘)  THEN  PGS=‘Q2E' 

61950  IF  (PG«=-W4')  THEN  PG«='01E‘ 

61960  IF  IPGSS‘W3'I  THEN  PG«=‘W4' 

61980  IF  (PG$='W2*)  THEN  PGS=‘M5‘ 

61990  IF  (PGS=‘W1')  THEN  PG«='W2* 

62000  IF  (PG«*'E9*)  THEN  PG«=*W1‘ 

62010  IF  (PG«=‘Ea‘l  THEN  PG$=‘E9‘ 

62020  IF  IPG«='E7')  THEN  PG4=‘E8* 

62030  IF  (PGS='E6')  THEN  PG«=-E7' 

62040  IF  (PGSs'ES'J  THEN  PG$='E6' 

62050  IF  1PGS=‘£4')  THEN  PGS='E5' 

62060  IF  (PG«=‘ES')  THEN  PG«=‘E4' 

62070  IF  (PG«=‘E2*)  THEN  PGS=*E3* 

62080  IF  (PGS='E1')  THEN  PG«=‘E2’ 

62090  GOTO  60430 

62100  PRINT  USING  'TOTAL  YEAR  GROUP  COST  =  »tt8tlWI 

62110  TTTRC^TTTRCtTTRC 

62120  IF  YS:19a2  THEN  GOTO  62150 

62130  YS»YS+1 

62140  goto  60400 

62150  print . . . 

62160  print  using  'Regular  Navy  Cost  a  9999*999*99991 
62170  print ' 

62190  endproc  !(*  axpandad_inulti^ear_individual  *) 
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APPENDIX  B 


MILRET  COMPUTER  PRINTOUTS 


MILITARY  PENSION  COSTS 


This  is  a  thra«-part  interac-tiva  program  that 
calculates  Individual,  aggregate,  and  multi-year 
retirement  costs.  Choose  a  selection  from  the 
following  list  of  options i 


1. 

2. 

3. 

4. 

5. 

6. 

Type  in  your 

1 


Program  description 

Enter/change  data  and  actuarial  assumptions 
Individual  entry-age  cost  method 
Aggregate  entry-age  cost  method 
Expanded  multi-year  individual  cost  method 
Exit  program 

selection  number  and  press  the  <enter>  key. 


MILRET  Description 

Welcome  to  the  MILRET  program.  This  program  was  developed 
at  the  Naval  Postgraduate  School  in  1983  and  revised  in  1985. 
The  program  utilizes  three  variations  of  the  entry-age  normal 
method  of  determining  retirement  costs i 

1.  Individual  entry  age  normal 

2.  Aggregate  entry  age  normal 

3.  Multi-year  expanded  individual 

The  individual  subprogram  produces  detailed  information  at 
the  individual  paygrade  and  year  of  service  entry  level. 
Retirement  costs  are  computed  from  user-supplied  information 
and  internally  stored  data.  Some  of  the  actuarial  and  economic 
assumptions  may  be  changed  by  the  operator. 


Please  press  <enter>  to  continue  =s> 


MILRET  Description  (eont.  ) 


The  aggregate  subprogran  re<;uires  the  operator  to  input  all 
of  the  data.  The  information  stored  within  the  program  is  not 
available  to  this  subprogram.  There  are  no  "hardwired"  prob¬ 
ability  assumptions. 

The  multi-year  expanded  individual  subprogram  computes  both 
normal  costs  and  total  retirement  costs  for  years  1953  through 
1982.  This  subprogram  utilizes  user-provided  data  and  stored 
information.  The  operator  may  select  from  a  "summary"  or  a 
"detail"  presentation  of  the  retirement  cost  calculations. 

When  you  are  returned  to  the  main  menu*  please  select  from 
the  options  listed.  If  this  is  your  first  time  with  this  pro¬ 
gram  f  you  may  want  to  review  the  assumptions  first. 


Please  press  <antsr>  to  return  to  main  menu. 


Military  Pension  Costs 

This  is  a  three-part  interactive  program  that 
calculates  individuals  aggregate*  and  multi-year 
retirement  costs.  Choose  a  selection  from  the 
following  list  of  options t 

1 .  Program  description 

2.  Enter/change  data  and  actuarial  assumptions 

3.  Individual  entry-age  cost  method 

4.  Aggregate  entry-age  cost  method 

5.  Expanded  multi-year  individual  cost  method 

6.  Exit  program 

Type  in  your  selection  number  and  press  the  center >  key. 


MILRET  Data 

The  following  actuarial  and  economic  values  are  currently 
stored  within  the  MILRET  program.  To  change  a  value*  type 
in  the  selection  number  first  (i.e.*  from  1  to  7)  and  press 
<enter>.  When  the  prompt  appears*  type  in  the  new  value  as  a 
decimal  te.g.*  .065)  and  press  <enter>  again.  Repeat  this  as 
often  as  necessary.  Enter  an  "8"  to  return  to  the  main  menu. 

1.  COLA  »  .050 

2.  Salary  scale  increase  -  .055 

3.  Annual  discount  rate  =  .060 

4.  Annuity  multiplier  »  .025 

5.  Maximum  percentage  of  base  pay  ^  ,750 

6.  Officer  retirement  probability  >  .400 

7.  Enlisted  retirement  probability  ■  .120 

8.  Ko  changes  or  changes  ace  complete 

Please  input  a  number  and  press  center >. 
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Military  Pension  Costs 


This  is  a  three-part  interactive  program  that 
calculates  individual >  aggregate t  and  multi-year 
retirement  costs.  Choose  a  selection  from  the 
following  list  of  options i 

1.  Program  description 

2.  Enter/change  data  and  actuarial  assumptions 

3.  Individual  entry-age  cost  method 

4.  Aggregate  entry -age  coat  method 

5.  Expanded  multi-year  individual  cost  method 

6.  Exit  program 

Type  in  your  selection  number  and  press  the  <enter>  key . 

3 


Tou  are  now  in  the  Individual  MILRET  subprogram.  Detailed 
information  for  an  Individual  retirement  pay  grads  and  specific 
year  of  service  entry  date  is  produced. 


Press  <enter>  to  continue  »-> 

•» 


Individual  Subprogram  Data 

Start  with  item  number  1  and  enter  the  desired  "Paygrade  at 
retirement."  Next  enter  the  "Year  of  service  entry."  Data  items 
3  through  7  will  be  supplied  by  the  program.  If  you  desire  to 
change  them^  type  in  the  appropriate  number  and  press  <enter>. 

1 .  Paygrade  at  retirement  - 

2.  Year  of  service  entry  s  o 

3.  Average  DOS  for  this  paygrade  -  0.0 

4.  Average  age  for  this  paygrade  -  0.0 

5.  Remaining  life  expectancy  s  0.00 

6.  Probability  of  new  entrant  retiring  >  0 

7.  Probability  of  entrant  retiring  in  tgt  grade  =  0 

8.  Data  entry  complete 


1 

Enter  paygrade  at  retirement. 
oS 


Please  input  a  number  and  press  <enter>. 
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Individual  Subpro^raa  Data 

Start  with  item  number  1  and  enter  the  desired  "Paysrrade  at 
retirement."  Next  enter  the  "Year  of  service  entry."  Data  items 
3  through  7  will  be  supplied  by  the  program.  If  you  desire  to 
change  thea>  type  in  the  appropriate  number  and  press  <enter>. 

1.  Paygrade  at  retirement  =  o5 

2.  Year  of  service  entry  =  0 

3.  Average  LOS  for  this  paygrade  =  24.9 

4.  Average  age  for  this  paygrade  =  46.3 

5.  Remaining  life  expectancy  -  30. S3 

6.  Probability  of  new  entrant  retiring  =  .4 

7.  Probability  of  entrant  retiring  in  tgt  grade  =  .3299 
a.  Data  entry  complete 


Please  input  a  number  and  press  <enter>. 


Enter  year  of  service  entry. 


Individual  Subprogram  Data 

Start  with  item  number  1  and  enter  the  desired  "Paygrade  at 
retirement."  Next  enter  the  "Year  of  service  entry."  Data  items 
3  through  7  will  be  supplied  by  the  program.  If  you  desire  to 
change  them>  type  in  the  appropriate  number  and  press  <snter>. 

1 .  Paygrade  at  retirement  3  o5 

2.  Year  of  service  entry  =  1975 

3.  Average  LOS  for  this  paygrade  *  24.9 

4.  Average  age  for  this  paygrade  3  46.3 

5.  Remaining  life  expectancy  =  30.83 

6.  Probability  of  new  entrant  retiring  3  .4 

7.  Probability  of  entrant  retiring  in  tgt  grade  =  .3299 
S.  Data  entry  complete 

Please  input  a  number  and  press  <anter>. 


Previous  Year  Normal  Cost  Data 

The  previous  year  Individual  normal  cost  will  be  calculated 
based  on  the  current  year  actuarial  assumptions  and  other  data 
displayed  below.  However^  different  values  may  be  entered  by 
selecting  the  appropriate  number*  pressing  <entsr>*  and  then 
entering  your  data.  Enter  any  known  deferred  gains/losses. 

If  you  enter  a  value  for  previous  year*  it  will  be  used  instead 
of  one  being  computed  by  the  program. 

1.  Previous  year  individual  normal  cost  3  e  0.00 

2.  Deferred  gains  or  losses  3  $  0.00 

3.  Previous  year  salary  scale  increase  3  .055 

4.  Previous  year  annual  discount  rate  3  .060 

5.  Previous  year  life  expectancy  =  30.83 

6.  No  changes  or  changes  are  complete 

Please  input  a  number  and  press  <anter>. 


Enter  previous  year  individual  normal  cost  (e.g.*  5823.6). 
12345.66 


Previous  Year  Normal  Cost  Data 


The  previous  year  individual  normal  cost  will  be  calculated 
based  on  the  current  year  actuarial  assumptions  and  other  data 
displayed  below.  However>  different  values  may  be  entered  by 
selecting  the  appropriate  number>  pressing  <enter>.  and  then 
entering  your  data.  Enter  any  known  deferred  gains/losses . 

If  you  enter  a  value  for  previous  year>  it  will  be  used  instead 
of  one  being  computed  by  the  program. 

1.  Previous  year  individual  normal  cost  =  $1ZI45.66 

Z.  Deferred  gains  or  losses  =  $  0.00 

3.  Previous  year  salary  scale  increase  *  .055 

4.  Previous  year  annual  discount  rata  =  .060 

5.  Previous  year  life  expectancy  =  30.83 

6.  No  changes  or  changes  are  complete 


Z 

Enter  any  deferred  gains  or  losses 
327.58 


Please  input  a  number  and  press  <enter> 
le.g.,  127.24). 


Previous  Year  Normal  Cost  Data 


The  previous  year  individual  normal  cost  will  be  calculated 
based  on  the  current  year  actuarial  assumptions  and  other  data 
displayed  below.  Howeveri  different  values  may  be  entered  by 
selecting  the  appropriate  number>  pressing  <enter>>  and  then 
entering  your  data.  Enter  any  known  deferred  gains/losses. 

If  you  enter  a  value  for  previous  year>  it  will  be  used  instead 
of  one  being  computed  by  the  program. 


1.  Previous  year  individual  normal  cost  =  $12345.66 

2.  Deferred  gains  or  losses  =  $  327.58 

3.  Previous  year  salary  scale  increase  s  .055 

4.  Previous  year  annual  discount  rate  ~  .060 

5.  Previous  year  life  expectancy  »  30.85 

6.  No  changes  or  changes  are  complete 


6 


Please  input  a  number  and  press  <enter> 


Individual  Data  Summary 


1 .  Paygrade  at  retirement  =  o5 

2.  Year  of  service  entry  =  1973 

3.  Average  LOS  for  this  payg .ade  =  24.9 

4.  Average  age  for  this  paygrade  =  46.3 

5.  Remaining  life  expectancy  =  30.83 

6.  Probability  of  new  entrant  retiring  =  .4 

7.  Probability  of  entrant  retiring  in  tgt  grade  =  .3299 

8.  Current  year  =  1983 

9.  Cola  =  .05 

10.  Salary  scale  increase  =  .055 

11.  Annual  discount  rata  -  .06 

12.  Annuity  miltiplier  -  .025 

13.  Maximum  of  basepay  =  .75 


Press  <enter>  to  continue  ===> 

6 


67 


Individual  Ratirenant  Cost  Projactions 


1.  Currant  monthly  basepay  at  ratiremant  paygrade  >  $  3266.10 

2.  Projected  monthly  basepay  at  retirement  paygrada  =  $  7252.56 

3.  Pay  basis  for  retirement  -  $  7252.56 

4.  Percentage  multiplier  ^  .6225 

5.  Projected  yearly  retirement  annuity  *  $  54176.60 

6.  "Present"  value  of  retirement  benefits  in  retirement  year  -  $  753154.04 

7.  Current  present  value  of  retirement  benefits  -  $  316101.40 

8.  Current  year  individual  normal  cost  =  $13832.30 


Press  <enter>  to  continue  ===> 


Target  Group  Retirement  Cost  Projections 


1.  Current  year  individual  normal  cost  . $  13 >832. 30 

2.  Previous  year  individual  normal  cost  . $  12>345.66 

3.  Current  year  gains  or  losses  . $  1 >486.64 

4.  Deferred  gains  or  losses  . $  327.58 

5.  Applied  gain  or  loss  . $  180.21 

6.  Current  year  individual  retirement  cost  . $  14>012.51 

7.  Number  of  new  entrants  in  entry  year  . .  7>600 

8.  Target  population  retiring  .  1>003 

9.  Current  target  group  retirement  cost  . $  14>0S3>089.97 


Press  <enter>  to  continue  **> 


Military  Pension  Costs 

This  is  a  three-part  interactive  program  that 
calculates  Individual >  aggregate >  and  multi-year 
retirement  costs.  Choose  a  selection  from  the 
following  list  of  optionsi 

1.  Program  description 

2.  Enter/change  data  and  actuarial  assumptions 

3.  Individual  entry-age  cost  method 

4.  Aggregate  entry -ago  cost  method 

5.  Expanded  multi-year  individual  cost  method 

6.  Exit  program 


Type  in  your  saloction  number  and  press  the  <entsr>  key. 


Aggrs^at*  Currant  FY  Data 


Enter  the  present  value  of  future  benefits,  the  present 
value  of  future  conpensation ,  and  the  current  FY  total  base 
pa)'.  The  normal  cost  percentage  factor  and  the  current  FY 
active  force  normal  cost  will  be  computed.  If  /ou  desire  to 
change  the  normal  coat  percentage  factor,  do  so  and  a  new 
active  force  normal  cost  will  be  computed. 

1.  Present  value  of  future  benefits  .  *  .00 

Z.  Present  value  of  future  compensation  .  F  .00 

3.  Normal  cost  percentage  factor  .  .0000 

4.  Current  FY  total  base  pay  .  $  .00 

3.  Current  FY  active  force  normal  coat  .  S  .00 

6.  No  changes  or  changes  are  complete 

Please  input  a  number  and  press  <antar> 


Enter  present  value  of  future  benefits. 

2456784256.67 

KO-17  Divide  by  zero 

Aggregate  Current  FY  Data 

Enter  the  present  value  of  future  benefits,  the  present 
value  of  future  compensation,  and  the  currant  FY  total  base 
pay.  The  normal  coat  percentage  factor  and  the  current  FY 
active  force  normal  cost  will  be  computed.  If  you  desire  to 
change  the  normal  cost  percentage  factor,  do  so  and  a  new 
active  force  normal  coat  will  be  computed. 

1.  Present  value  of  future  benefits  .  t  2 >456 . 784 > 256 . 67 

2.  Present  value  of  future  compensation  .  ♦  00 

S.  Normal  coat  percentage  factor  . 

4.  Current  FY  total  base  pay  .  *  00 

5.  Current  FY  active  force  normal  cost  .  *  .00 

6.  No  changes  or  changes  are  complete 

Please  input  a  number  and  press  'enter' 

2 

Enter  present  value  of  future  compensation. 

5487458998.56 

Aggregate  Current  FY  Data 

Enter  the  present  value  of  future  benefits,  the  present 
value  of  future  compensation,  and  the  currant  FY  total  base 
pay.  The  normal  cost  percentage  factor  and  the  current  Ff 
active  force  normal  cost  will  be  computed  If  you  desire  to 
change  the  normal  cost  percentage  factor,  do  so  and  a  new 
active  force  normal  cost  will  be  computed 


Present  value  of  future  benefits 
Present  value  of  future  compensation 
Normal  cost  percentage  factor 
Current  FY  total  base  pay 
Current  FY  active  force  normal  cost 
No  changes  or  charges  are  complete 


9  2  .  w56  .  .256  6  2 

s  5 .ws  •  .wsa .  se 

'Ow  S 

»  hO 

S  00 


Please  input  a  number  and  press  -enter 


Enter  current  FY  total  base  pay 
4467852'.56  99 


.  *  a'  •  *  • 


Aggre^ata  Current  FY  Data 


Enter  the  present  value  of  future  benefits >  the  present 
value  of  future  conpensatlon >  and  the  current  FY  total  base 
pay.  The  normal  cost  percentage  factor  and  the  current  FY 
active  force  normal  cost  will  be  computed.  If  you  desire  to 
change  the  normal  coat  percentage  factor >  do  so  and  a  new 
active  force  normal  cost  will  be  computed. 


1.  Present  value  of  future  benefits  .  t 

2.  Present  value  of  future  compensation  .  $ 

.3.  Normal  cost  percentage  factor  . 

4.  Current  FY  total  base  pay  .  t 

5.  Current  FY  active  force  normal  coat  .  $ 

6.  No  changes  or  changes  are  complete 


2.456,784,256.67 

5,487,458,998.56 

.7045 

4,467,852,456.99 

3,147,420,642.45 


Please  input  a  number  and  press  <enter>. 


Aggregate  Previous  FY  and  Current  FY  Total  Data 

Enter  the  previous  FY  normal  cost  percentage,  the  previous 
FY  active  force  normal  coat,  and  any  deferred  gains  or  losses 
to  compute  the  previous  FY  active  force  normal  cost,  current 
gaina/losses  applied,  and  the  currant  FY  total  retirement  cost. 


1 .  Previous  FY  normal  cost  percentage  . 

2.  Previous  FY  total  base  pay  .  $ 

5.  Previous  FY  active  force  normal  cost  .  t 

4.  Current  FY  actuarial  gains/losses  .  t 

5.  Deferred  gains  or  losses  .  $ 

6.  Current  FY  gains/losses  applied  .  t 

7.  Current  FY  total  retirement  cost  .  ♦ 

a.  No  changes  or  changes  are  complete 


.0000 

.00 

.00 

3,147,420,642.45 

.00 

274,406,474.33 

3,421,827,116.78 


Please  input  a  number  and  press  <enter>. 


Enter  previous  FY  normal  cost  percentage. 


Aggregate  Previous  FY  and  Current  FY  Total  Data 

Enter  the  previous  FY  normal  cost  percentage,  the  previous 
FY  active  force  normal  cost,  and  any  deferred  gains  or  losses 
to  compute  the  previous  FY  active  force  normal  cost,  current 
gains/losses  applied,  and  the  current  FY  total  retirement  cost. 


Previous  FY  normal  cost  percentage  . . 

Previous  FY  total  base  pay  .  t 

Previous  FY  active  force  normal  cost  .  $ 

Currant  FY  actuarial  gains/losses  .  * 

Deferred  gains  or  losses  .  $ 

Current  FY  gains/losses  applied  .  t 

Current  FY  total  retirement  cost  .  t 

No  changes  or  changes  are  complete 


.5700 

.00 

.00 

3,147,420,642.45 

.00 

274,406,474.33 
3.421 ,627,116.78 


Please  input  a  number  and  press  renter >. 


Enter  previous  FY  total  base  pay. 

5:845920  54.57 


Aggre^ata  Pravioua  FY  and  Currant  FY  Total  Data 


Enter  the  previous  FY  normal  cost  percentags>  the  previous 
FY  active  force  normal  cost#  and  any  deferred  gains  or  losses 
to  compute  the  previous  FY  active  force  normal  cost>  current 
gains/losses  applied>  and  the  current  FY  total  retirement  cost 


1.  Previous  FY  normal  cost  percentage  .  .5700 

Z.  Previous  FY  total  base  pay  .  t  3>784|59Z>0S‘«.57 

3.  Previous  FY  active  force  normal  cost  .  t  2 > 157,21 7,459. 70 

4.  Current  FY  actuarial  gains/losses  .  f  990,203,182.75 

5.  Deferred  gains  or  losses  .  $  .00 

6.  Current  FY  gains/losses  applied  .  i  86,330,425.80 

7.  Current  FY  total  retirement  cost  .  6  3,233,751,068.26 

8.  No  changes  or  changes  are  complete 
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Please  input  a  number  and  press  <enter>. 


Enter  any  deferred  gains  or  losses. 
4785484.37 


Aggregate  Previous  FY  and  Current  FY  Total  Data 

Enter  the  previous  FY  normal  cost  percentage,  the  previous 
FY  active  force  normal  coat,  and  any  deferred  gains  or  losses 
to  compute  the  previous  FY  active  force  normal  coat,  current 
gains/loases  applied,  and  the  current  FY  total  retirement  cost 


1.  Previous  FY  normal  cost  percentage  .  .5700 

2.  Previous  FY  total  base  pay  . $  3,784,592,034.57 

3.  Previous  FY  active  force  normal  cost . .  6  2,157,217,459.70 

4.  Current  FY  actuarial  gains/loases  .  9  990,203,182.75 

5.  Deferred  gains  or  losses  .  t  4,785,484.37 

6.  Current  FY  gains  ^'losses  applied  .  t  86,747,646.14 

7.  Current  FY  total  retirement  cost  .  t  3,234,168,288.59 

8.  No  changes  or  changes  are  complete 
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Please  input  a  number  and  press  <enter>. 


Military  Pension  Costs 

This  is  a  three-part  interactive  program  that 
calculates  individual,  aggregate,  and  multi-year 
retirement  coats.  Choose  a  selection  from  the 
following  list  of  options, 

1.  Program  description 

2.  Enter/change  data  and  actuarial  assumptions 

3.  Individual  entry-age  cost  method 

4.  Aggregate  entry-age  cost  method 

5.  Expanded  multi-year  individual  cost  method 

6.  Exit  program 

Type  in  your  selection  number  and  press  the  <entor>  key. 
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APPENDIX  C 

FORMULAS  IN  THE  ORIGINAL  ENTRYAGE  COMPUTER  PROGRAM 


Proqram  Fonnula 


CF=1983 


RF=LOS+YS 


N=RF-CF 


IN=. 055 


PP=BP 

FOR  1=1  TO  N 
TP=PP*IN 
PP=TP+PP 
NEXT  I 


FAC=LOS+DL 


Exolanation 


Current  Year  =  1983 


Retirement  Year  =  Length  of  Service  +  Year 
of  Service  Entry 


Number  of  Years  to  Retirement  =  Retirement 
Year  -  Current  Year 


Salary  Scale  Increase  =  .055 


This  is  a  rather  long  way  of  computing  the 
projected  base  pay  at  retirement.  A  mote 
acceptable  computation  is: 

PP  =  BP  X  (1  +  IN)  **  N 

where  PP  is  projected  basepay  at  retirement 
(or,  future  value) ;  BP  is  current  basepay 
(or,  present  value);  IN  is  salary  scale 
increase  (or,  interest  per  period);  and  N 
is  the  number  of  years  to  retirement  (or, 
(number  of  periods). 


The  percentage  of  basepay  that  a  retiree  is 
entitled  to  (FAC)  is  computed  by  multiply¬ 
ing  his/her  length  of  service  (LOS)  by  a 
percent  value  (DL) ; 

50%  =  (20  years)  x  (2.5%  per  year) 


V  y ..  ■  ^  \  -y:- r'y-IP'S-'i 


V  'v''.'  ■.'•'v'’  •  V  V'/’  > 


Togram  Fonnula 


Explanation 


ANN=FAC*PP*12  A  retiree's  annual  annuity  (A‘W)  is  cort'.pu- 
ted  by  multiplying  his/her  projected  oase 
pay  (PP)  by  nis  percentage  of  basepay  (FAC) 
by  12  nxsnths: 

Si8,03O/yr.  =  50%  x  S3300/mo.  x  12  mo. 

0=(1+DI)**LI  The  present  value  of  a  retiree's 

PRE=ANN» ( {1-(1/Q) )/DI  future  retirement  benefits  are 

calculated: 


1 

(1  + 

PRE  =  ANN  *  - 

DI 

where  PRE  is  the  present  value  of 
future  retirement  benefits,  ANN  is 
the  yearly  retirement  annuity,  DI 
is  the  annual  discount  rate,  and 
LI  is  the  life  expectancy  of  the 
retiree  at  retirement. 

A  more  traditional  representation 
of  the  above  is: 


1 


PV  =  PYMT  X 


1 


(1  ^ 


i) 


N 


i 


where  PV  is  the  present  value, 

PYMT  is  the  payment,  i  is  the 
interest  rate  _oer  oeriod,  and  N  is 
the  numoer  of  oeriods. 
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am  Formula 


Explanation 


T= ( (l+DI) **LOS) -1  These  two  ptoqram  statements  calculate 
S'C=PRE*  (DI/T)  tne  current  year's  normal  cost: 


MC  =  PRE  * 


lo5 

[1  +  DI)  -  1 


where  .NC  is  the  normal  cost,  PRE  is  the 
present  value,  DI  is  tne  discount  rate, 
and  LOS  is  the  retiree's  lenqtn  of 
service. 


V=N+1 

X=l/( (1+DI)**V) 
AP=(PC+GL)*(DI/(1-X) ) 


where  AP  is  the  applied  gain/loss, 

FC  is  the  current  year  gain/loss,  GL 
is  the  deferred  gain/loss,  DI  is  the 
annual  discount  rate,  and  M  is  the 
number  of  years  to  retirement. 


RC=NC+AP  The  current  year  individual  retirement  cost  (RC) 
is  calculated  by  adding  the  current  year  indivi¬ 
dual  retirement  cost  (NC)  and  the  applied  gain  or 
loss  (AP) . 


PEC=PRO*TGT*NElV  The  target  population  retiring  (PEC)  is 

computed  oy  multiplying  tne  prooability  of 
a  new  entrant  retiring  (PRO)  by  tne  proo- 
ability  of  an  entrant  retiring  at  the  tar¬ 
get  paygrade  (TGT)  and  oy  tne  numoer  of 
entrants  in  tne  initial  year  of  service 
(NEW) . 


Prcxjram  Formula 


Explanation 


I 


K 


A 


k' 

iT 

h' 


TRC=PEC*RC  Tne  current  target  group  retirement  cost  (TRC) 
is  calculated  by  multiplying  the  target  popula¬ 
tion  retiring  (PEC)  by  tne  current  year  indivi¬ 
dual  retirement  cost  (F!C). 


A=N-2 

RP=3P 

FOR  K=1  TO  A 
VP=RP*IN 
RP=VP+RP 
N'EXT  K 

SP= (IN*RP) +RP 
PP=(SP+RP+PP)/3 


For  individuals  entering  tne  services 
after  Septemoer  1980,  the  pay  oasis  for 
retirement  is  the  average  of  the  last  36 
months  of  baseoav'  versus  ending  basepay. 
This  program  “module"  finds  the  future 
value  of  basepay  to  tne  retirement  year 
minus  two,  then  computes  tne  next  years' 
basepay.  Finally,  the  three  basepays  are 
averaged. 


PF=PBE/PCE 


!  jc:=PF*TBF 


The  normal  cost  percentage  factor  (PF)  is 
calculated  by  dividing  the  present  value 
of  future  benefits  (PBE)  by  the  present 
value  of  future  composition  (PCE) . 


The  current  year  active  force  normal  cost 
is  calculated  by  multiplying  the  current 
fiscal  year  total  base  pay  (TBF)  by  the 
normal  cost  percentage  factor  (PF) . 


Vt3=CF*L,'BF  The  previous  normal  cost  is  calculated  by 

multiplying  the  previous  year  total  basepay 
by  the  previous  year  normal  cost  %  factor. 
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APPENDIX  D 


VARIABLES  IN  THE  ORIGINAL  ENTRYAGE  COMPUTER  PROGRAM 
(LISTED  IN  ORDER  OF  APPEARANCE) 


LISTING  OF  VARIABLES  AND  COHPUTATIONS  IN 
ORDER  OF  APPEARANCE  IN  THE  COMPUTER  PROGRAM 


I.  INOIVIOUAL  ENTRY  AGE  COST  METHOD 


CK$  •  ’PROGRAM  CHOICE’.  Ce..  *IN0'  for  Individual  method 
cost  calculations,  'AGS'  for  aggregate  method  cost 
calculations,  'GANG'  for  expanded  multiyear  Individual 
cost  calculations,  and  'HALT'  to  exit  the  program. 


P(x,y)  ■  ’CURRENT  YEAR  PAY  MATRIX’  with  rows  defined  by  pay 
grade  and  columns  defined  by  years  of  service. 

Contains  base  pay  for  all  twenty-six  paygrades  (E1-E9, 
U1-M4,  01,  OlE,  02,  02E,  03.  03E,  04-010)  and  for  over 
20  years  of  service  (over  20  yrs.,  over  22  yrs.,  over 
24  yrs.,  over  26  yrs.,  over  28  yrs.,  over  30  yrs.) 


E(x)  •  ’ENLISTED  LIFE  EXPECTANCY  MATRIX’  containing  thirty- 
one  non-dlsabll Ity  retired  life  expectations  for  ages 
36  yrs.  to  66  yrs..  Inclusive. 


0Z(x)  •  ’OFFICER  LIFE  EXPECTANCY  MATRIX*  containing  thiry-one 
non-d 1  sab  1 1 1 1 y  retired  life  expectations  for  ages 
36  yrs.  to  66  yrs.,  inclusive. 


0{x)  •  ’AVERAGE  LOS  MATRIX*  containing  twenty-six  length-of- 
service  (LOS)  values  corresponding  to  the  twenty-six 
different  paygrades. 


F(x)  •  ’AVERAGE  AGE  AT  RETIREMENT  MATRIX’  containing  twenty 
six  average  age  values  for  each  of  the  twenty-six 
different  paygrades. 


FZ(x)  •  ’TARGET  RETIREMENT  GRADE  PROBABILITY  MATRIX’  contain¬ 
ing  a  probability  of  retiring  In  a  particular  paygrade 
for  each  of  the  twenty-six  paygrades. 


LISTIN6  OF  VARIABLES  AND  COMPUTATIONS  IN 
ORDER  OF  APPEARANCE  IN  THE  COMPUTER  PROGRAM 


00(x)  •  'OFFICER  ACCESSION  MATRIX'  conta<n<ng  tH^rty-two 
values  for  officer  accession  values  for  the  years 
1951-1982,  inclusive. 


*  'PREVIOUS  YEAR  PAY  MATRIX*  containing  the  same  rows 
ana  columns  as  the  “CURRENT  YEAR  PAY  MATRIX*  [P(x,y)] 
Du:  w'-.n  -e  Dr-'VD-:  y-  ar's  b  s^cav  uata. 


PGJ  •  'PAYGRAOE  AT  RETIREMENT*  input  by  operator  as  El.  E9, 
Wl,  01.  03E.  05.  etc. 


G  »  An  integer  from  1  to  2b  corresponding  to  'PAYGRAOE  AT 
RETIREMENT*,  e.g..  6*1  for  El.  G-2  for  E2,  S-IQ  for 
Wl,  G*26  for  010.  Used  to  determine  values  from  LOS 
ana  pay  matr'ces. 


YS  •  'YEAR  OF  SERVICE  ENTRY*  input  by  operator,  e.g.,  1972, 


LOS  •  Either  'AVERAGE  LENGTH  OF  SERVICE  FOR  THIS  PAYGRAOE* 
taken  from  the  'AVERAGE  LOS  MATRIX*  [L0S*0(G)]  con¬ 
tained  in  the  program,  or  an  'ESTIMATED  LENGTH  OF 
SERVICE  AT  RETIREMENT*  input  by  the  operator. 


L  •  An  integer  ranging  from  1  to  $  depending  upon  the 

value  of  LOS,  e.g.,  if  20<»LOS<22  then  L*l,  etc.  Used 
with  *G*  to  determine  values  from  the  pay  matrix. 


BP  •  'MONTHLY  BASE  PAY  AT  RETIREMENT  GRADE*  based  upon 

paygrade  and  length  of  service.  Taken  from  the  current 
(1983)  pay  matrix: 

8P  •  P(G.L) 


CF  »  *CURRENT  FISCAL  YEAR*,  contained  in  program  as  a  fixed 
value  (1983). 
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listing  of  variables  and  computations  in 

ORDER  OF  APPEARANCE  IN  THE  COMPUTER  PROGRAM 


RF  •  'PROJECTED  RETIREMENT  YEAR*  determined  tjy  adding 

•LENGTH  OF  SERVICE"  (LOS)  and  ‘YEAR  OF  SERVICE  ENTRY' 
( YS  )  togetner  ; 


N  •  'NUMBER  OF  YEARS  TO  RETIREMENT*  determined  by 
subtracting  "CURRENT  YEAR*  (CF)  from  "PROJECTED 
RETIREMENT  YEAR"  (RF): 


IN  ■  "SALARY  SCALE  INCREASE*  default  to  .055,  or  can  be 
cnanged  by  operator. 


PP  •  "PROJECTED  MONTHLY  BASEPAY  AT  RETIREMENT  GRADE* 

computed  by  compounding  "CURRENT  MONTHLY  BASEPAY  AT 
RETIREMENT  GRADE*  (8P)  by  the  "SALARY  SCALE  INCREASE' 
(IN); 


PP  •  BP 

FOR  I  •  I  TO  N 
TP  •  PP  *  IN 
PP  .  TP  ♦  PP 
NEXT  I 


OL  ■  "PERCENTAGE  OF  BASEPAY  PER  YEAR  OF  SERVICE*,  default 
value  of  .025  (•'.e.,  2  1/2  S  per  yr.  of  service),  but 

can  bo  ch- ng-d  by  op  r, ter. 


AC  •  'PERCENTAGE  OF  BASEPAY  FOR  RETIREMENT*  that  a  retiree 
has  earned  for  retirement  pay  .  Determined  by  multi¬ 
plying  "AVERAGE/ESTIHATEO  LENGTH  OF  SERVICE"  (LOS)  by 
•PERCENTAGE  OF  BASEPAY  PER  YEAR  OF  SERVICE  (OL): 


DM  •  "MAXIMUM  PERCENTAGE  OF  BASE  PAY*  that  a  retiree  may 
receive.  Default  value  is  .75  (I.e.,  751),  but  can  be 
Changed  by  operator.  If  FAC  is  greater  than  DM,  then 
FAC  Is  assigned  the  value  of  DM. 


LISTING  OF  VARIABLES  AND  COMPUTATIONS  IN 
ORDER  OF  APPEARANCE  IN  THE  COMPUTER  PROGRAM 


ANN  .  -PROJECTED  ANNUAL  RETIREMENT  PAY*  comouted  by  multi¬ 
plying  -PERCENTAGE  OF  8ASEPAY  FOR  RETIREMENT*  (FAC) 

by  the  "PROJECTEQ  MONTHLY  BASEPAY*  (PP)  and  bv  12 
months:  it 

ANN  »  FAC  •  PP  •  12 

01  -  -ANNUAL  DISCOUNT  RATE*  default  to  .09  (i.e.,  9S  per 
year)  ,  but  may  be  changed  by  the  operator. 

AG  •  -AVERAGE  AGE  AT  RETIREMENT  FOR  THIS  PAYGRADE*  taken 
from  the  -AVERAGE  AGE  AT  RETIREMENT  MATRIX*  [AG-FfG)! 
contained  in  tn-  orogram,  or  can  be  changed  by  the 
operator,  ' 

I  •  An  integer  ranging  from  1  to  31  depending  upon  the 
value  of  AG  (e.g.,  if  36<AG<37  then  I-l;  if  45<AG<46 
theb  Z»31). 

LI  •  -REMAINING  LIFE  EXPECTANCY  (at  retirement)  FROM 
ACTUARIAL  tables*  taken  from  * E NL I STE D / OF F I CER 
LIFE  EXPECTANCY  MATRICES".  Determined  by  "AVERAGE 
AuE  AT  retirement  FOR  THIS  PAYGRAOE"  [LI«E[Z)  or 
Lr*OZ(Z)],  or  can  be  changed  by  the  operator, 

Q  *  An  intermediate  variable  used  to  eventually  compute 
the  present  value  of  future  retirement  benefits.  It  i 
comouted  by  adding  "1*  to  the  "ANNUAL  DISCOUNT  RATE* 
(DI)  and  raising  that  sum  to  the  'LIFE  EXPECTANCY" 

'LI)  exponent: 

0  •  (1  ♦  0I)**LI 


PRESENT  value  OF  FUTURE  RETIREMENT  BENEFITS*  is 
comouted  by  mulfplying  the  "PROJECTED  ANNUAL 
RETIREMENT  PAY*  (ANN)  as  follows: 

.  1  -  (1/0) 


PRE  •  ANN  X 


01 


LISTING  OF  VARIABLES  AND  COMPUTATIONS  IN 
ORDER  OF  APPEARANCE  IN  THE  COMPUTER  PROGRAM 


T  •  An  -(ntermed^ate  var-aBle  used  to  eventually  compute 
the  Current  year  individual  normal  cost.  It  is  com¬ 
puted  as  fo 1  lows  : 

T  •  [(1  ♦  01)  ••  LOS]  -  1 


NC  •  "CURRENT  YEAR  INDIVIDUAL  COST"  1$  computed  as  follows 
NC  •  PRE  •  (OI/T) 


ON  •  "SALARY  SCALE  I"  used  to  calculate  the  "PREVIOUS  YEAR 
NORMAL  COST"  (OC).  Can  be  assigned  tne  same  value  as 
current  year  "SALARY  SCALE  INCREASE"  (IN)  or  can  be 
changed  by  the  operator. 


H  •  Assigned  the  value  of  "G*  which  is  an  integer  value 
corresponding  to  the  indiviflual's  paygraoe. 


M  «  Assigned  the  value  of  "L“  which  is  an  integer  value 
corresponding  to  the  individual's  LOS. 


QP  •  The  previous  year's  "MONTHLY  BASE  ^ay  AT  RETIREMENT" 
corresoono ing  to  the  current  year's  "BP".  Tanen  from 
the  "PREVIOUS  YEAR  PAY  MATRIX": 

OP  •  R(h.m) 


0  •  "NUMBER  OF  YEARS  TO  RETIREMENT  FROM  THE  PREVIOUS  YEAR 
and  Is  determined  by  adding  "I"  to  the  "NUMBER  OF 
YEARS  TO  RETIREMENT"  (N): 

0  •  N  •  I 


XP  ■  "PROJECTED  MONTHLY  3ASEPAY  AT  RETIREMENT  CALCULATED 
FROM  THE  PREVIOUS  YEAR".  It  ^s  computed  as  "ollows: 

XP  •  OP 

FOR  J  •  1  TO  0 
UP  •  XP  •  JN 
XP  •  Jp  •  XP 
NEXT  J 
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LISTING  OF  VARIABLES  AND  COMPUTATIONS  IN 
OROER  OF  APPEARANCE  IN  THE  COMPUTER  PROGRAM 


El  •  "PREVIOUS  TEAR  DISCOUNT  RATE".  Can  be  assigned  the 
sane  value  as  tne  current  year's  “ANNUAL  DISCOUNT 
RATE"  (DI),  dr  can  de  changed  by  tne  ooerator. 


MI  -  "PREVIOUS  TEAR  LIFE  EXPECTANCY".  Can  be  assigned  the 
same  value  as  tne  current  year's  "REMAINING  LIFE 
ExpeC'ANCY  (at  refrement)  " ,  or  can  be  changed  by  tne 
oserator. 


S  •  An  'ntermed'ate  value  used  to  eventually  compute  tne 
jrev’ous  year's  present  value  oF  future  retirement 
benef'ts.  It  's  comauted  by  add'ng  “1"  to  tne 
"PREVIOUS  YEAR  DISCOUNT  RATE"  (El)  and  raising  to  the 
“PREVIOUS  ''EAR  LIFE  EXPECTANCY"  (Ml)  exponent; 

S  •  (1  •  £1)  ••  MI 


ORE  -  "OREVIOUS  YEAR  PRESENT  VALUE  OF  FUTURE  RETIREMENT 
BENEFITS"  ‘s  computed  as  follows; 

I  -  (1/S) 

ORE  •  3NN  X  — 

e: 

j  •  S',  -ntarmec'ate  var-aole  used  to  eventually  compute 
•  prey-ous  year's  ■' na  "  v  ■' dua  1  normal  cost.  It  is 
:  :m  3  y : »  :  as  ‘o 1 ' ows  : 

J  •  :  :  ♦  E :  :  *•  LOS]  -  1 


•  “PREVIOUS  •'EAR  INOIVIOUAL  NORMAL  COST"  is  computed 
as  ‘ 0 1  ’ 0  ws  : 

OC  •  ORE  *  (EI/U) 


;  -  "C'ySRENT  ’EAR  GAINS  OR  LOSSES"  computed  by  suDtracfin 
•PRE.IOyS  'E»R  iNOIvIOJAL  NORMAL  COST"  (OC)  from  the 
•'..RRENT  'EAR  INDIVIOjAL  NORMAL  COST"  (NC); 

PC  ■  NC  -  OC 
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VASIABLES  ANO  COMPUTATIONS  IN 
QR06R  OF  APPEARANCE  IN  THE  COMPUTER  PROSRAM 


•AMNOUNT  OF  DEFERRED  GAIN  OR  LOSS*  entered  Sy  the 
operator  ’f  known,  or  defaults  to  a  *0*  »alue  If  not 
Knoii^n , 


•CURRENT  YEAR  SAINS/LOSSES  APPLIED*  <s  comouted  by 
add  ng  the  CURENT  YEAR'S  ACTUARIAL  GAIN/LOSS*  (FO) 
together  ,  and  multiplying  the  sum  by  "SLIP'*: 


(WC  *  FOJ  •  BLIP 


•CURRENT  YEAR  TOTAL  RETIREMENT  COST*  computed  by 
add  ng  the  ‘CURRENT  YEAR  ACTIVE  FORCE  NORMAL  COST* 
MC  and  the  CURRENT  YEAR  GAINS/LOSSES  APPLIED* 

(  FA  )  ; 


>  •» 


i-iSTiNfi  OF  <Aa:*8LE5  »<*o  cotP'j '* f : 3NS  :n 
oaoEP  OF  *ppE*»AKCE  :n  tne  oonp'jte#  P9osa*H 


•AOOJSTHEnT  'O  lOS  and  aS£  at  aET;aE^E><T-  ,a  ‘i 

3»  laft'.o'  it  i'y  ■•''.»<}»'■.  f-i’rfr 
jr  «••_•’  i  ».J..  -0  a 

J»c''*ai»  oT  *.  »(j  ftsri,  »  ifj  01  ‘i  f-ytf'-f']  '  ■:r  io 
;  ■'  1  ■’  j »  . 
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.;s*:ng  aF  /iuusiES  and  computations  in 
OaOEA  3F  appearance  in  TH£  computer  program 


3Gt  ■  "SArGRAOE  AT  RETIREMENT*  'n't'ally  3y  Rrogratn  as 

;l  .  i  *  ‘.p  ^  tjmojt'ng  -lonal  afid  total  :oats  ‘or  t^' 
3a<;''i;»,  '"s^ts  »a'j»  to  EC'ar'o  '•ecoinDJtes  lonial 
a"d  •-  a'.a’  tosta.  Pr3g>-j.n  ;3fit‘ng»$  comoutjt'ons  jnt' 
;aata  ‘ : r  I. C'  ir»  tomoutft. 


•RC  ■  ‘’OTAl  »EAR  group  cost*  Ot  TOO- a ‘ sac  ‘  •  ty  rer^r.ps  3 
y^ao  jTouc,  start ‘og  «'ti  1953.  ComputAd  3y  to* 

' :  r-T  j :  a 

T’RC  •  Ttrc  •  trc 


■  ‘AyERAGE  LOS  FOR  A  PARTICULAR  PAYGRAOE*  Trom  t.oe 
■AyERAjE  ^3S  na*r:i*.  Oet*rii‘T#a  oy  toe  yalu* 
ass  ;-'*!  to  to(i  •o*(»;*r  /ar-aol*.  *0’. 


.35  •  ".ENG’N  3F  SERVICE*  ‘s  ;aoiDut*3  3y  add’og  "AyERAGE 

.r.  -'R  A  RArSoaQE-  to  “AOCUSTMENT 

.35  *N0  AGE  a:  RE'IREnEnT*  .,A0J).' 

.05  •  01 G;  •  ADO 


■  In  '■jig'Tg  •  ")1<  I  to  0  d*3*'id"ng  jpOT  to* 

•  a  i*  O'  .3  5.  *.g.,  *T  C0‘*.3S*>.’C  toen  ^*1,  »tc. 
,S»;  T't'  'I*  to  l*t*r-«'n*  aa'.  g«S  ‘rom  to*  oay 

« a  •  I . 


•  *:  JRRENT  YEAR  PAT*  ta«*o  '*011  tOe  "CURRENT  ’EAR  PAT 
«a'R:<*.  ’t*  tjr'^Tt  y*ar  say  yaij*  ‘S  J»t*rTi’o*a  3y 

•.  '*  <a'j*s  oT  and  •.*.  *ri-.:o  ar*  ass’go'd  (alu*s 

3as*d  030"  oaygrao*  and  y*ars  oT  s*ry'C*  o»*r  CO  yrs 


iQ  .  'ngnTHL*  5ASE  !>A»  AT  RE*IREMENT  GRADE'  305*3  jSOo 

oayjrao*  md  '••’jto  o'  s*r»'C*.  Ta»*n  ‘rpi*  to*  ;jr’-* 

1H:  say 

3  P  •  P  '  3  .  . 
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listing  of  variables  AMO  COMPUTATIONS  IN 
ORDER  OF  APPEARANCE  IN  THE  COMPUTER  PROGRAM 


RF  •  “PROJECTED  RETIREMENT  YEAR"  aetepmined  by  adding 

•length  OF  SERVICE*  (LOS)  and  “YEAR  OF  SERVICE  ENTRY* 
( YS )  togetner : 


RF  -  LOS  *  YS 


N  -  “NUMBER  OF  YEARS  TO  RETIREMENT*  determined  by 
subtracting  “CURRENT  YEAR*  (CF)  from  “PROJECTED 
RETIREMENT  YEAR*  (RF): 

M  •  RF  -  CF 


PP  •  “PROJECTED  MONTHLY  BASEPAY  AT  RETIREMENT  GRADE* 

comouted  by  comooundlng  *C1"VRENT  MONTHLY  BASEPAY  AT 
RETIREMENT  GRADE*  (BP)  by  tne  “SALARY  SCALE  INCREASE* 
(IN): 

PP  •  BP 

FOR  I  -  I  TO  N 
TP  •  PP  •  IN 
PP  .  TP  ♦  PP 
NEXT  I 


FAC  •  “PERCENTAGE  OF  BASEPAY  FOR  RETIREMENT*  that  a  retire 
has  earned  for  retirement  pay  .  Determined  by  multi* 
plyng  “AVERAGE/ESTIMATEO  LENGTH  OF  SERVICE*  (LOS)  by 
•percentage  of  BASEPAY  PER  YEAR  OF  SERVICE  (OL): 

FAC  •  LOS  •  OL 


ANN  •  “PROJECTED  ANNUAL  RETIREMENT  PAY*  computed  by  multi¬ 
plying  ‘PERCENTAGE  OF  BASEPAY  FOR  RETIREMENT*  (FAC) 
b/  the  ‘PROJECTED  MONTHLY  BASEPAY*  (PP)  and  by  12 
months: 

ANN  •  FaC  •  op  •  12 


F(G)  ■  ‘AVERAGE  AGE  AT  RETIREMENT*,  taken  from  the  ‘AVERAGE 
AGE  AT  retirement  MATRIX‘  [F(«)].  Value  of  F(G)  is 
determined  Py  the  part'cular  value  of  the  integer 
var'aole,  ‘3’,  enicn  corresponds  to  a  particular 
paygrade. 
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LISTING  OF  VARIABLES  AND  COMPUTATIONS  IN 
ORDER  OF  APPEARANCE  IN  THE  COMPUTER  PROGRAM 


AG 


I 

I 


•AVERAGE  AGE  AT  RETIREMENT"  taken  from  the  "AVERAGE  | 

AGE  AT  retirement  MATRIX"  [F(G)]  ana  Bodlf^ea  3y  the 
•ADJUSTMENT  TO  LOS  AND  AGE  AT  RETIREMENT"  value  (AOJ);  ; 

i 


AG  •  F(G)  >  AOJ 


Z  •  An  integer  ranging  from  1  to  31  depending  upon  the 
value  of  the  retiree's  age. "AG"  (e.g.,  if  36<AG<37 
then  Z*l;  if  45<AG<46  then  Z*31). 


£(Z)  •  "ENLISTEO  LIFE  EXPECTANCY"  taken  from  the  "ENLISTED 
LIFE  EXPECTANCY  MATRIX"  [E(x)].  The  specific  life 
expectancy  value  is  determined  Oy  the  Integer  variaple 
"Z",  «n1ch  corresponds  to  a  specific  retirement  age. 


•  "OFFICER  LIFE  EXPECTANCY"  taken  from  the  "OFFICER 
LIFE  EXPECTANCY  MATRIX"  [0Z(x)].  The  specific  life 
expectancy  value  is  determined  by  the  'nteger  variable 
"Z",  which  corresponds  to  a  specific  retirement  age. 


LI  •  "REMAINING  LIFE  EXPECTANCY  AT  RETIREMENT"  S  calcu¬ 
lated  by  setting  the  value  of  "LI"  to  a  respect've 
officer  or  enlisted  1  '  fe  expectancy,  and  then  -noa^fy- 
ing  It  with  "he  "ADJUSTMENT  TO  LIFE  EXPECTANCY  AT 
RETIREMENT"  value  I"'uaHG")-. 


LI  •  £(Z) 

LI  •  Ll  ♦  LONG 


0  •  An  Intermediate  variable  used  to  eventually  comoute 

the  present  value  of  future  retirement  benefits.  It  's 
computed  by  add'ng  "1"  to  the  "ANNUAL  DISCOUNT  RATE’ 
(01)  and  raising  that  sum  to  the  'LIFE  EXPECTANCY" 

(LI)  ex  00  nen  t  : 

0  •  (1  •  0I)«*LI 


1  6 
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listing  of  variables  and  computations  in 

ORDER  OF  APPEARANCE  IN  THE  COMPUTER  PROGRAM 


PRE  •  PRESENT  VALUE  OF  FUTURE  RETIREMENT  BENEFITS’  is 
coniputea  Sy  multiplying  the  "PROJECTEO  ANNUAL 
retirement  PAY’  (ANN)  as  fpllpws; 

I  -  (1/0) 

PRE  •  ANN  t  — 

DI 


T  ■  An  intermediate  variaole  used  to  eventually  compute 
tne  current  year  individual  normal  cost.  It  is  com¬ 
puted  as  fo 1 1 ows : 

T  •  [(1  ♦  01)  ••  LOS]  -  1 


NC  •  ’YEAR  GROUP  NORMAL  COST*  is  computed  as  follows: 
NC  •  PRE  *  (DI/T) 


SC  •  An  'ntermed'ate  var-aole  assigned  tne  value  of  the 
normal  cost  for  a  particular  year  group.  It  '%  used 
later  to  compute  'YEAR  GROUP  TOTAL  COST’  (TRC): 

RC  •  NC 


TRC  •  PEC  ♦  RC 


PRO  •  ’RETIREMENT  PROBABILITY’.  It  has  a  default  value  of 

.12  for  enlisteds  and  .4  for  officers  officers,  Put  is 
modified  oy  the  program  as  follows: 

PRO  •  (PRO  *  PROP)  •  OELT 


PROP  •  An  intermediate  variaole  assigned  the  value  of  e’ther 

•aojustment  to  entrant  retirement  probability  for 

OFr’CERS'  ;PR0R)  or  ’ADJUSTMENT  TO  ENTRANT  RETIREMENT 
probability  for  enlisted  personnel’  (PROO).  PROR  and 
PROO  are  'nput  Dy  tne  operator. 


listing  of  variables  and  computations  in 

ORDER  OF  APPEARANCE  IN  TrtE  COMPUTER  PROGRAM 


FI(G)  •  •PROBABILITY  OF  ENTRANT  RETIRING  AT  TARGET  GRADE* 

taAen  from  the  "TARG^ET  RETIREMENT  PROBABILITY  MATRIX" 
(F:i.  The  soec'f’c  proQaSMUy  aeterm^nec  3y  tne 
valueof’G". 


TGT  .  -PROBABILITY  THAT  ENTRANT  RETIRES  AT  SELECTED  TARGET* 
M  assigned  the  ^alue  of  FZ(G): 

TGT  •  P Z ( G ) 


NEW  •  'NUMBER  OF  ENTRANTS  IN  INITIAL  YEAR  OF  SERVICE*,  Th-;s 
value  <s  computed  as  follows: 

IF  (G>*20)  Then  new  •  lOOO  •  0D[yS-1950) 

IF  (G<20)  Then  new  •  1000  •  E0(YS-1950) 

'OfFICER  and  ENLISTED  ACCESSION 
MATRiCcS  that  contain  accessions  of  of fleer/ en 1 i steo 
personnel  for  the  years  1951-1932.  inclusive 


•target  population  retiring*  calculated  by  mult^plv-no 

the  -probability  OF  A  NEw  ENTRANT  RETIRING*  (PRO)  Pv 
•PROBABILITY  THAT  TH£  ENTRANT  RETIRES  AT  SELE'^'D 
target*  (TGT)  and  by  the  "NUMBER  OF  ENTRANTS  In'thE 
initial  year  of  service*  (NEW): 


TRC  •  "CURRENT  TARGET  GROUP  RETIREMENT  COST*  <s  calculated 
by  multiplying  the  "TARGET  POPULATION  RETIRING*  'PCCl 
and  the  'CURRENT  YEAR  INDIVIDUAL  RETIREMENT  COST*  (RCl 
together:  '  ' 

TRC  •  PEC  *  »r 
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AFPEXDIX  E 

V  \R1  ABU  S  IN  TUB  ORIGINAL  ENTRVAGE  COMPUTER  PROGICAM 
.  LISTED  IN  ALPHABETICAL  ORDER) 


ALPHABETICAL  LISTING 
OF  VARIABLES  AND  COMPUTATIONS 


:so:v;ojAL  entry  age  cost  method 


AG  -  "AVERAGE  AGE  AT  RETIREMENT  FOR  THIS  PAYGRADE"  taken 

from  tne  “AVERAGE  AGE  AT  RETIREMENT  MATRIX"  (AG-F(G)l 
contained  in  the  pcogtatn,  or  can  be  changed  by  the 
operator • 


ANN  «  "PROJECTED  ANNUAL  RETIREMENT  PAY"  computed  by  raul 
plying  "PERCENTAGE  OF  3ASEPAY  FOR  RETIREMENT"  (FA 
by  the  "PROJECTED  MONTHLY  BASEPAY"  (PP)  and  by  12 
months : 

ANN  «  FAC  •  PP  •  12 


AP  •  "APPLIED  GAIN  OR  LOSS"  computed  as  follows: 


AP  .  (FC  +  GL)  X 


(1  -  X) 


BP  »  "MONTHLY  EASE  PAY  AT  RETIREMENT  GRADE"  based  upon 
paygrade  and  length  of  service.  Taken  from  tne 
(1933)  pay  matrix: 

BP  »  P(G,L) 


CF  •  "CURRENT  FISCAL  YEAR",  contained  in  proonn 
value  (1983). 


CXS  •  "PROGRAM  CHOICE",  i.e.,  •'.NO'  £ ; :  .  . 

cost  calculations,  'ACG'  tor 
calculations,  'GANG'  for  exoi-'ieo 
cost  calculations,  ana  - 


"AVERAGE  LOS  MATRIX" 
service  (LJSi  va.^es 
iufferent  payorades; 
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ALPHABETICAL  LISTING 
OF  VARIABLES  AND  COMPUTATIONS 


01 


□  L 


DM 


E(X) 


ED  (X) 


El 


F(x) 


FAC 


FC 


"ANNUAL  DISCOUNT  HATE"  default  to  .39  (i.a.,  9%  per 
year),  but  may  be  changed  by  the  operator. 


"PERCENTAGE  OF  BASEPAY  PER  YEAR  OF  SERVICE",  default 
value  of  .325  (i.e.,  2  1/2  %  per  yr.  of  service),  but 
can  be  changed  by  operator. 


"MAXIMUM  PERCENTAGE  OF  BASE  PAY"  that  a  retiree  may 
receive.  Default  value  is  .75  (i.e.,  75%),  but  can  be 
changed  by  operator.  If  FAC  is  greater  than  DM,  then 
FAC  is  assigned  the  value  of  DM. 


"ENLISTED  LIFE  EXPECTANCY  MATRIX"  containing  thirty- 
one  non-disability  retired  life  expectations  for  ages 
36  to  66  years,  inclusive. 


"ENLISTED  ACCESSION  MATRIX"  containing  thirty-two 
values  for  accessions  of  enlisted  personnel  for  the 
years  1951-1982,  inclusive. 


"PREVIOUS  YEAR  DISCOUNT  RATE*.  Can  be  assigned  the 
same  value  as  the  current  year’s  "ANNUAL  DISCOUNT 
RATE"  (DI),  or  can  be  changed  by  the  operator. 


"AVERAGE  AGE  AT  RETIREMENT  MATRIX"  containing  twenty- 
six  average  age  values  for  each  of  the  twenty-six 
different  paygrades. 


"PERCENTAGE  OF  BASEPAY  FOR  RETIREMENT"  that  a  retire 
has  earned  for  retirement  pay  .  Determined  by  multi¬ 
plying  "AVERAGE/ESTIMATED  LENGTH  OF  SERVICE"  (LOS)  by 
"PERCENTAGE  OF  BASEPAY  PER  YEAR  OF  SERVICE  (DL) : 

FAC  •  LOS  *  DL 


"CURRENT  YEAR  GAINS  OR  LOSSES"  computed  by  subtracting 
"PREVIOUS  YEAR  INDIVIDUAL  NORMAL  COST"  (OC)  from  the 
"CURRENT  YEAR  INDIVIDUAL  NORMAL  COST"  (NC): 
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FZ  (X) 


FZ  (G) 
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GL 
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ALPHABETICAL  LISTING 
OF  VARIABLES  AND  COMPUTATIONS 


•TARGET  RETIREMENT  GRADE  PROBABILITY  MATRIX"  contain¬ 
ing  a  probability  of  retiring  in  a  particular  paygrade 
for  each  of  the  twenty-six  paygtades. 


"PROBABILITY  OF  ENTRANT  RETIRING  AT  TARGET  GRADE" 
default  to  a  value  from  the  "TARGET  RETIREMENT 
PROBABILITY  MATRIX"  (FZ)  dependent  upon  paygrage, 
or  can  be  changed  by  operator. 


An  integer  from  1  to  26  corresponding  to  "PAYGRADE  AT 
RETIREMENT",  e.g.,  G«1  for  El,  G-2  for  E2,  G-10  for 
Wl,  G>26  for  010.  Used  to  determine  values  from  LOS 
and  pay  matrices. 


"DEFERRED  GAINS  OR  LOSSES".  This  value  is  either  input 
by  the  operator  if  known,  or  defaults  to  a  "0”  value 
if  unknown. 


Assigned  the  value  of  "G"  which  is  an  integer  value 
corresponding  to  the  individual's  paygrade. 


"SALARY  SCALE  INCREASE"  default  to  .0S5,  or  can  be 
changed  by  operator. 


"SALARY  SCALE  %"  used  to  calculate  the  "PREVIOUS  YEAR 
NORMAL  COST"  (OC) .  Can  be  assigned  the  same  value  as 
current  year  "SALARY  SCALE  INCREASE"  (IN)  or  can  be 
changed  by  the  operator. 


An  integer  ranging  from  1  to  6  depending  upon  the 
value  of  LOS,  e.g.,  if  20<sLOS>>22  then  L>1,  etc. 
Used  with  "G"  to  determine  values  from  the  pay 
matrix. 


"REMAINING  LIFE  EXPECTANCY  (at  retirement)  FROM 
ACTUARIAL  TABLES"  taken  from  "ENLISTED/OFFICER 
LIFE  EXPECTANCY  MATRICES".  Determined  by  "AVERAGE 
AGE  AT  RETIREMENT  FOR  THIS  PAYGRADE"  [LI«E(2)  or 
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ALPHABETICAL  LISTING 
OF  VARIABLES  AND  COMPUTATIONS 


LOS  •  Either  "AVERAGE  LENGTH  OP  SERVICE  FOR  THIS  PAYGRAOE" 
taken  from  the  "AVERAGE  LOS  MATRIX"  [LOS-0(G)1  con¬ 
tained  in  the  program,  or  an  "ESTIMATED  LENGTH  OF 
SERVICE  AT  RETIREMENT"  input  by  the  operator. 


M  >  Assigned  the  value  of  "L"  which  is  an  integer  value 
corresponding  to  the  individual's  LOS. 


MI  -  "PREVIOUS  YEAR  LIFE  EXPECTANCY".  Can  be  assigned  the 
same  value  as  the  current  year's  "REMAINING  LIFE 
EXPECTANCY  (at  retirement)",  or  can  be  changed  by  the 
operator. 


N  >  "NUMBER  OF  YEARS  TO  RETIREMENT"  determined  by 
subtracting  "CURRENT  YEAR"  (CF)  from  "PROJECTED 
RETIREMENT  YEAR"  (RF) : 

N  -  RF  -  CF 


NC  «  "CURRENT  YEAR  INDIVIDUAL  COST"  is  computed  as  follows: 
NC  »  PRE  •  (DI/T) 


NEW  -  "NUMBER  OF  ENTRANTS  IN  INITIAL  YEAR  OF  SERVICE".  This 
value  must  be  input  by  the  operator. 


0  »  "NUMBER  OF  YEARS  TO  RETIREMENT  FROM  THE  PREVIOUS  YEAR" 
and  is  determined  by  adding  "1"  to  the  "NUMBER  OF 
YEARS  TO  RETIREMENT"  (N) : 

0  -  N  1 


OC  •  "PREVIOUS  YEAR  INDIVIDUAL  NORMAL  COST"  is  computed 
as  follows: 

OC  -  QRE  *  (EI/U) 


00 (X)  •  "OFFICER  ACCESSION  MATRIX"  containing  thirty-two 
values  for  officer  accession  values  for  the  years 


4 


98 


Ki  -V  .A .V.vV?i kV... 


ALPHABETICAL  LISTING 
OF  VARIABLES  AND  COMPUTATIONS 


OZ(x)  •  “OFFICER  LIFE  EXPECTANCY  MATRIX"  containing  thirty-one 
non-disability  retired  life  expectations  for  ages 
36  to  66  years,  inclusive. 


P(x,y)  «  "CURRENT  YEAR  PAY  MATRIX"  with  26  tows  defined  by  pay 
grade  and  6  columns  defined  by  years  of  service.  The 
rows  contain  basepay  amounts  for  all  twenty-six  pay- 
grades  (E1-E9,  01,  OlE,  02,  02E,  03,  03E,  04-010),  The 
columns  correspond  tp  pay  entitlements  for  20.  22.  24. 
26.  28,  and  30  years  of  service. 


PEC  «  "TARGET  POPULATION  RETIRING"  calculated  by  multiplying 
the  "PROBABILITY  OF  A  NEW  ENTRANT  RETIRING"  (PRO)  by 
"PROBABILITY  THAT  THE  ENTRANT  RETIRES  AT  SELECTED 
TARGET"  (TGT)  and  by  the  "NUMBER  OF  ENTRANTS  IN  THE 
INITIAL  YEAR  OF  SERVICE"  (NEW): 

PEC  *  PRO  •  TGT  •  NEW 


PCS  •  "PAYGRADE  AT  RETIREMENT"  input  by  operator  as  El,  E9, 
Wl,  01,  03E,  05,  etc. 


PP  •  "PROJECTED  MONTHLY  BASEPAY  AT  RETIREMENT  GRADE" 

computed  by  compounding  "CURRENT  MONTHLY  BASEPAY  AT 
RETIREMENT  GRADE"  (BP)  by  the  "SALARY  SCALE  INCREASE" 
(IN)  ; 

PP  »  BP 

FOR  I  «  I  TO  N 
TP  «  PP  *  IN 
PP  »  TP  +  PP 
NEXT  I 


PRE  •  "PRESENT  VALUE  OP  FUTURE  RETIREMENT  BENEFITS"  is 
computed  by  multiplying  the  "PROJECTED  ANNUAL 
RETIREMENT  PAY"  (ANN)  as  follows: 

1  -  (1/Q) 

PRE  »  ANN  X  ■' 

DI 
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ALPHABETICAL  LISTING 
OF  VARIABLES  AND  COMPUTATIONS 


PRO  >  "PROBABILITY  Of  A  NEW  ENTRANT  RETIRING”.  It  has  a 
default  value  of  .12  for  enlisteds  and  .4  for 
officers,  but  can  be  changed  by  the  operator. 


Q  >  An  intermediate  variable  used  to  eventually  compute 

the  present  value  of  future  retirement  benefits.  It  is 
computed  by  adding  ”1*  to  the  "ANNUAL  DISCOUNT  RATE" 
(01)  and  raising  that  sum  to  the  "LIFE  EXPECTANCY" 

(LI)  exponent: 

Q  -  (1  0I>""LI 


OP  "  The  previous  year's  "MONTHLY  BASE  PAY  AT  RETIREMENT" 
corresponding  to  the  current  year's  "BP".  Taken  from 
the  "PREVIOUS  YEAR  PAY  MATRIX": 

OP  -  R(H,M) 


ORE  •  "PREVIOUS  YEAR  PRESENT  VALUE  OF  FUTURE  RETIREMENT 
BENEFITS"  is  computed  as  follows: 

1  -  (1/S) 

ORE  •  BNN  X  -  -  ■  ~ 

El 


R(x,y)  >  "PREVIOUS  YEAR  PAY  MATRIX*  containing  the  same  rows 

and  columns  as  the  "CURRENT  YEAR  PAY  MATRIX"  [P(x,y)) 
but  with  the  previous  year's  basepay  data. 


RC  •  "CURRENT  YEAR  (total)  RETIREMENT  COST”  equals 

the  "CURRENT  YEAR  INDIVIDUAL  NORMAL  COST"  (NC)  plus 
any  "APPLIED  GAINS  OR  LOSSES"  (AP) : 

RC  ■  NC  +  AP 


RF  »  "PROJECTED  RETIREMENT  YEAR"  determined  by  adding 

"LENGTH  OF  SERVICE"  (LOS)  and  "YEAR  OF  SERVICE  ENTRY" 
(YS)  together: 

RF  ■  LOS  +  YS 
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S  >  An  intermediate  value  used  to  eventually  compute  the 
previous  year's  present  value  of  future  retirement 
benefits.  It  is  computed  by  adding  ”1”  to  the 
"PREVIOUS  TEAR  DISCOUNT  RATE"  (El)  and  raising  to  the 
"PREVIOUS  TEAR  LIFE  EXPECTANCT"  (MI)  exponent: 

S  -  (1  El)  *•  MI 


T  >  An  intermediate  variable  used  to  eventually  compute 
the  current  year  individual  normal  cost.  It  is  com¬ 
puted  as  follows: 

T  -  ( (1  ♦  DI)  *•  LOSJ  -  1 


TGT  «  "PROBABILITY  THAT  ENTRANT  RETIRES  AT  SELECTED  TARGET" 
is  default  to  the  FZ(G)  matrix  value,  or  can  be 
changed  by  the  operator. 


TRC  •  "CURRENT  TARGET  GROUP  RETIREMENT  COST"  is  calculated 
by  multiplying  the  "TARGET  POPULATION  RETIRING"  (PEC) 
and  the  "CURRENT  TEAR  INDIVIDUAL  RETIREMENT  COST*  (RC) 
together : 

TRC  »  PEC  •  RC 


U  «  An  intermediate  variable  used  to  eventually  compute 
the  previous  year's  individual  normal  cost.  It  is 
computed  as  follows: 

U  -  [ (1  +  El)  ••  LOSl  -  1 


V  «  An  intermediate  variable  used  in  the  calculation  of 
the  "APPLIED  GAIN  OR  LOSS"  (AP) .  It  is  computed  by 
adding  "1"  to  the  "NUMBER  OF  TEARS  TO  RETIREMENT"  (N) : 

V  •  N  ♦  I 
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ALPHABETICAL  LISTING 
OF  VARIABLES  AND  COMPUTATIONS 


X  >  An  inteemediace  variable  used  in  the  calculation  o£ 
the  "APPLIED  GAIN  OR  LOSS"  (AP) .  It  is  calculated  as 
follows : 


(1  ♦  DI)  •*  V 


"PROJECTED  MONTHLY  BASEPAY  AT  RETIREMENT  CALCULATED 
FROM  THE  PREVIOUS  YEAR".  It  is  computed  as  follows: 


XP  »  QP 

FOR  J  «  1  TO  0 
OP  •  XP  *  JN 
XP  -  OP  ♦  XP 
NEXT  J 


»  "YEAR  OF  SERVICE  ENTRY"  input  by  opecatoc,  e.g. 


2  >  An  integer  ranging  from  1  to  31  depending  upon  the 
value  of  AG  (e.g.,  if  36<AG<37  then  2-1;  if  45<AG<46 
theb  2-31) . 


ALPHABETICAL  LISTING 
OF  VARIABLES  AND  COMPUTATIONS 


II,  AGGREGATE  ENTRY  AGE  COST  METHOD 


BLIP  >  An  incecmediate  variable  used  to  eventually  calculate 
tbe  "CURRENT  YEAR  GAINS/LOSSES  APPLIED"  (FA).  It  is 
calculated  as  follows: 

BLIP  »  GI/HIST 


FA  «  "CURRENT  YEAR  GAINS/LOSSES  APPLIED"  is  computed  by 
adding  the  "CORENT  YEAR'S  ACTUARIAL  GAIN/LOSS"  (FD) 
together,  and  multiplying  the  sum  by  "BLIP": 

FA  -  (WC  *  FD)  *  BLIP 


FD  •  "AMOUNT  OF  DEFERRED  GAIN  OR  LOSS"  is  entered  by  the 
operator  if  known,  or  defaults  to  a  ”0"  value  if  not 
known. 


GI  «  "DISCOUNT  RATE”  entered  by  the  operator  as  a  decimal, 
e.g.,  11.2%  is  entered  as  .112. 


GIS  »  An  intermediate  variable  used  to  eventually  calculate 
the  "CURRENT  YEAR  GAINS/LOSSES  APPLIED"  (FA).  It  is 
calculated  as  follows: 

GIS  ■  (1  +  GI)  *•  20 


GIST  *  An  intermediate  variable  used  to  eventually  calculate 
the  "CURRENT  YEAR  GAINS/LOSSES  APPLIED"  (FA).  It  is 
calculated  as  follows: 

1 

GIST  -  — 

GIS 


HIST  *  An  intermediate  variable  used  to  eventually  calculate 
the  "CURRENT  YEAR  GAINS/LOSSES  APPLIED"  (FA).  It  is 
calculated  as  follows: 

HIST  »  (1  -  GIST) 
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ALPHABETICAL  LISTING 
OF  VARIABLES  AND  COMPUTATIONS 


MC  •  "CURRENT  YEAR  ACTIVE  FORCE  NORMAL  COST"  is  equal  to 
the  "NORMAL  COST  PERCENTAGE  FACTOR"  (PF)  multiplied 
by  the  "CURRENT  FISCAL  YEAR  TOTAL  PAY  BASE"  (TBF) : 

MC  ■  PF  *  TBF 


PBE  «  "PRESENT  VALUE  OF  FOTORB  BENEFITS".  This  value  must  be 
entered  by  the  operator  in  millions  of  dollars,  e.q., 
$4,334,785,192.32  entered  as  4334.735. 


PCE  »  "PRESENT  VALUE  OF  FOTORB  COMPENSATION".  This  value 
must  be  entered  by  operator  in  millions  of  dollars, 
e.g.,  $9,127,589,203.63  is  entered  as  9127.589. 


PF  >  "NORMAL  COST  PERCENTAGE  FACTOR"  is  Computed  by  divid¬ 
ing  the  “PRESENT  VALUE  OF  FUTURE  BENEFITS"  (PBE)  by 
the  "PRESENT  VALUE  OF  FUTURE  COMPENSATION  (PCE); 

PBE 

PF  »  '  ■'  ■ 

PCE 

The  program  allows  the  operator  to  change  the  value. 


(5F  »  "PREVIOUS  YEAR  NORMAL  COST  %  FACTOR"  is  entered  by  the 
operator  as  a  decimal,  e.g.,  43.2%  is  entered  as  .432. 


TBF  «  "CURRENT  FISCAL  YEAR  TOTAL  BASE  PAY".  This  value  must 
be  entered  by  the  operator  in  millions  of  dollars, 
e.g.,  $27,485,552,035.89  is  entered  as  27485.552. 


TRC  ■  "CURRENT  YEAR  TOTAL  RETIREMENT  COST"  is  computed  by 
adding  the  "CURRENT  YEAR  ACTIVE  FORCE  NORMAL  COST" 
(MC)  and  the  "CURRENT  YEAR  GAINS/LOSSES  APPLIED” 
(FA)  : 

TRC  »  MC  ♦  FA 


UBF  »  "PREVIOUS  YEAR  TOTAL  BASE  PAY"  is  entered  by  the 

operator  in  millions  of  dollars,  e.g.,  $22,432,518,317 
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VC  •  "PREVIOUS  TEAR  NORMAL  COST"  is  entered  by  the  operator 
if  known.  Otherwise^  it  is  calculated  by  multiplying 
the  "PREVIOUS  TEAR  NORMAL  COST  %  FACTOR"  (QF)  by  Che 
"PREVIOUS  TEAR  TOTAL  BASE  PAT"  (UBF): 

VC  •  QF  •  UBF 


WC  «  "CURRENT  TEAR’S  ACTUARIAL  GAIN  OR  LOSSES"  computed  by 
subtracting  the  "PREVIOUS  TEAR  ACTIVE  FORCE  NORMAL 
COST"  (VC)  from  the  "CURRENT  TEAR  ACTIVE  FORCE  NORMAL 
COST*  (MC): 


WC  •  MC  -  VC 
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AUWkBETICAL  LISTING 
Ce  VABXABIXS  UO  CXHFUTATIONS 


III.  ^M.TIYE^R  EXPANDES  lEDIVIPOAL  NORMAL  COST  METHOD 


AOJ  «  "AOJDSIMEtrr  TO  LOS  AID  AGE  AT  REriRJEMBrT"  value  is 
entered  by  operator  as  an  Integer,  either  unsigned 
or  with  a  negative  sign,  e.g.,  >2  indicating  a 
decrease  of  two  years.  A  zero  (0)  is  entered  for  no 
change. 


AG  >  'AVERAGE  AGE  AT  RETIREMOrr”  taken  from  the  "AVERAGE 
AGE  AT  RETIREMENT  MATRIX"  [F(G)I  and  modified  by  the 
"ADJUSIMENT  TO  LOS  AM3  AGE  AT  RETIRfMEMT"  value  (ADJ) : 

AG  -  F(G)  4.  AOJ 


ANN  -  "PROJECTED  ANNUAL  RETIROSMT  PAT*  confJUted  by  multi* 
plying  "PERCOfTAGE  OF  BASEPAY  FOR  RETIRfMEMT"  (FAC) 
by  the  "PROJECTED  MONTHLY  BASEPAY"  (PP)  and  by  12 
months: 

ANN  ■  FAC  •  PP  •  12 


BP  >  "MONTHLY  BASE  PAY  AT  RETIREMENT  GRADE"  based  upon 

paygrade  and  length  of  service.  Taken  frcn  the  current 
(1983)  pay  matrir; 

BP  ■  P(G,L) 


CS  *  "LEVEL  OP  DETAIL"  for  program,  i.e.,  for  Sannary 

Totals  and  'Detail*  for  Full  Detail.  This  value  is 
input  by  the  operator. 


CF  •  ''CDRRSn'  FISCAL  YEAR"  with  a  program  assigned  value  of 
1983. 
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DELT  •  A  "DELTA"  factor  used  to  adjust  attrition.  A  value  of 

(1)  "1"  is  aissiqned  by  the  proqrara  if  "AVERAGE  LOS" 
(D{G)+ADJl  is  greater  than  "MINIMLM  LOS  FOR 
RETIRfMESre"  <NRT) ,  or 

(2)  is  calculated  by  the  following  formila  if 
[  (D(G)+ADJ)<MRT  and  (MRT>20  yrs.)]: 

DELT  »  1.30**(MRT-O(G)-ADJ1 


D(G)  -  "AVERAGE  LOS  FOR  A  PARTICULAR  PAYGRADE"  from  the 
"AVERAGE  LOS  MATRIX".  Determined  by  the  value 
assigned  to  the  integer  variable,  "G". 


01  >  "DISCOUyr  rate"  entered  by  the  operator  as  a  decimal, 
e.g.,  .J8  for  3.3%. 


DL  •  "RETIRmEMT  PAY  BASIS  PER  YEAR  OF  SERVICE"  (i.e.,  the 
%  rate  of  retired  pay  per  year  of  service)  is  entered 
by  the  operator  as  a  decimal,  e.g.,  ,325  for  2.5%  per 
year. 


CM  -  "RETIRaiENT  PAY  CEILING  AS  PERCENTAGE  OF  BASIC  PAY" 
(i.e.,  the  maxwMra  %  of  pay  basis  at  retirement)  is 
entered  by  the  operator  as  a  decimal,  e.g.,  .75  for 
75%. 


E(Z)  •  "QILISTED  LIFE  EXFBCTANCY"  taJcen  from  the  "QILISTED 
LIFE  EXPECTANCY  MATRIX"  (E(x)J.  The  specific  life 
expectancy  value  is  determined  by  the  integer  variable 
"Z",  'Which  corresponds  to  a  specific  retirement  age. 


FAC  •  "PEBOWTAGE  OF  BASEPAY  EY5R  RETIREMENT"  that  a  retire 
has  earned  for  retirement  pay.  Determined  by  multi¬ 
plying  "AVERAGE/ESTIMATED  LENGTH  OF  SERVICE"  (LOS)  by 
"PERCENTAGE  OF  BASEPAY  PER  YEAR  OF  SERVICE  (DL) ; 

F?C  «  LOS  •  DL 
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F(G)  >  "AVERAGE  AGE  AT  RETIREMOn",  taken  fram  the  "AVERAGE 
AGE  AT  RETIRQUin' MATRIX"  [F(x)l.  Value  of  F(G)  is 
detetmined  by  the  particular  value  of  the  inteqer 
variable,  "G",  which  corresponds  to  a  particular 
paygrade. 


FZ  (G)  -  "PROBABILITY  OF  ENTRANT  RETIRING  AT  TARCXT  GRADE" 

taken  from  the  "TARGET  RETIREMENT  PROBABILITY  MATRIX" 
(FZ] .  The  specific  probability  is  detemined  by  the 
value  of  "G". 


G  •  An  integer  from  1  to  26  corresponding  to  "PAYCSiADB  AT 
RETIREMENT",  e.g.,  G-1  for  El,  G-2  for  B2,  G-18  for 
Wl,  G«26  for  010.  Used  to  determine  values  ftcm  LOS 
and  pay  matrices. 


IN  -  "SALARY  SCALE  ESTIMATOR"  (i.a.,  the  rate  of  salary 
increase)  is  entered  by  the  operator  as  a  decimal, 
e.g.,  .055  for  5.5%  yearly  rate  for  salary  increases. 


L  "  An  integer  ranging  frcra  1  to  6  depending  upon  the 
value  of  LOS,  e.g.,  if  20<«LOSw>22  then  L>1,  etc. 
Used  with  "G"  to  determine  values  from  the  pay 
matrix. 


LI  >  "REMAINING  LIFE  EXPECTANCY  AT  RETIROffiNT*  is  computed 
by  setting  the  value  of  "LI"  to  a  respective  officer 
or  enlisted  life  expectancy,  and  then  modifying  it 
with  the  "ADJUSTMESre  TO  LIFE  EXPBCT7UCY  AT  REn’IREMENT" 
value  ("LONG"): 

LI  -  E(Z) 

LI  >  LI  +  LONG 

LONG  >  "ADJUSTMENT  TO  LIFE  EXPECTANCY  AT  RETIREMEZrT”  is 

entered  by  the  operator  as  an  integer,  either  unsigned 
or  with  a  negative  sign,  e.g.,  3  for  three  years.  A 
zero  is  entered  for  no  change. 
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LOS  •  *LENI?rH  OP  SERVICE"  is  computed  by  adding  "AVERAGE 

LOS  FOR  A  PARTICULAR  PAYGBADE"  [D  (G)  ]  to  "ADJUSTMENT 
TO  LOS  AM)  AGE  AT  RETIREMENT”  (AOJ) . 

LOS  >  0(G)  *  ADJ 


NRT  ■  "MINIMCM  LOS  FOR  REriREMENT*  (i.e.,  the  mininun  length 
of  service  required  in  order  to  retire)  is  entered  by 
the  operator  as  an  integer,  e.g.,  25  for  twenty-five 
years. 


U  «  "MBfiER  OF  TEARS  TO  REriREMEMT*  determined  by 
subtracting  "CURRQff  TEAR"  (CP)  from  "PROJECTED 
rCTIREMEMT  TEAR"  (Rf ) : 

N  .  RT  -  CF 


NC  •  "TEAR  GROUP  NORMAL  COST"  is  cooputed  as  follows: 
NC  -  PRE  *  (DI/T) 


NEW  >  "NIMER  OF  ENTRANTS  IN  INITIAL  TBVR  OF  SERVKS".  This 
value  is  computed  as  follows: 

IF  (G>-2a)  THEN  NEW  »  1800  •  OD(TS-1950) 

IE  (G<20)  THEN  NEW  ■  1000  •  ED(TS-1959) 

00(x)/n)(X)  ate  the  "OFFICER  and  ENLISTTD  ACCESSION 
MATRICES"  that  contain  accessions  of  officer/enlistod 
personnel  for  the  years  1951-1982,  inclusive. 


OZ(Z)  •  "OFFICER  LIFE  EXPBCTANCT"  taJwn  fron  the  "CFFICHl 
LIFE  EXPECTANCY  MATRIX"  (OZ(x)l.  The  specific  life 
expectancy  value  is  determined  by  the  integer  variable 
"Z",  which  corresponds  to  a  specific  ceticetnent  age. 


ALPHABCTICAL  LISTING 
or  VARIABLES  AtO  CCMFUTATIONS 


PEC  -  "TARGET  POPOLATION  RETIRING"  calculated  by  multiplying 
the  "PROBABILITT  OF  A  MEM  ENTRANT  RETIRING"  (PRO)  by 
"PROBABILITY  THAT  THE  ENTRANT  RETIRES  AT  SELECTED 
TARGET"  (TGT)  and  by  the  "NUMBER  OF  Q/TRANTS  IN  THE 
INITIAL  YEAR  OF  SERVICE"  (NW) : 

PEC  •  PRO  •  TCT  •  NEW 


PGS  >  "PAYCStAOE  AT  RETIREMENT"  initially  set  by  pcogm  as 
"El".  After  ccnputing  nonnal  and  total  costs  for  this 
paygrade,  resets  value  to  "E2"  and  reccn^tes  nonnal 
and  total  costs.  Program  continues  ctnputations  intil 
costs  for  "010"  are  coDoputed. 


P(G,L)  >  "CDRREMT  YEAR  PAY*  taken  from  the  "CORROTT  YEAR  PAY 
MATRIX".  The  current  year  pay  value  is  determined  by 
the  values  of  "G"  and  "L",  which  are  assigned  values 
based  upon  paygrade  and  years  of  service  over  20  yrs. 


PP  *  "PROJECTED  MONTHLY  BASEPAY  AT  RETIRQffiNT  GRADE" 

conputed  by  canpounding  "CURRQfT  MONTHLY  BASEPAY  AT 
RETIRSIENT  GRADE"  (BP)  by  the  "SALARY  SCALE  INCREASE” 
(IN)S 


PP  -  8P 

FOR  I  «  1  TO  N 
TP  -  PP  •  IN 
PP  ■  TP  t  PP 
NEXT  I 


PRE  •  "PRESENT  VALUE  OF  FUTURE  RETIREMENT  BBigITS*  is 
computed  by  multiplying  the  "PROJECTED  ANNUAL 
RETIREMENT  PAY"  (AEN)  as  follows: 

i  -  (1A3) 

PRE  •  AM)  X  — — 

DI 


PRO  >  "RETIREMENT  PROBABILITY”.  It  has  a  default  value  of 

.12  for  enlisteds  and  .4  for  officers  officers,  but  is 
modified  by  the  program  as  follows: 

PRO  »  (PRO  ♦  PROP)  •  DELT 
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PROP  •  An  Interfiled  late  variable  assigned  the  value  of  either 
‘ADJUSTMENT  TO  ENTRANT  RETIREMENT  PROBABILITY  FOR 
OFFICERS'  (PROR)  or  ‘ADJUSTMENT  TO  ENTRANT  RETIREMENT 
PROBABILITY  FOR  ENLISTED  PERSONNEL'  (PROO).  PROR  and 
PRQQ  are  Input  by  the  operator. 

PROP  •  ‘ADJUSTMENT  TO  ENTRANT  RETIREMENT  PROBABILITY  FOR 
ENLISTED  PERSONNEL*  is  entered  by  the  operator  as 
a  decimal,  e.g..  -.02  for  a  2t  decrease.  The  base¬ 
line  value  Is  .12  (i.e.,  12t  probability),  A  zero 
IS  entered  for  no  change  to  the  baseline  value. 

PROR  -  ‘ADJUSTMENT  TO  ENTRANT  RETIREMENT  PROBABILITY  FOR 
OFFICERS*  is  entered  by  the  operator  as  a  decimal  , 
Increase.  The  baseline  value  is 
.40  (i.e.,  40Z  probability),  A  zero  (0)  is  entered 
for  no  change  to  the  baseline  value. 

0  •  An  intermediate  variable  used  to  eventually  compute 
the  present  value  of  future  retirement  benefits.  It  is 
computed  by  adding  *1*  to  the  ‘ANNUAL  DISCOUNT  RATE' 
(01)  and  raising  that  sum  to  the  ‘LIFE  EXPECTANCY* 

(LI)  exponent: 

0  •  (1  *  0I)**LI 

RC  •  An  intermediate  variable  assigned  the  value  of  the 
normal  cost  for  a  particular  year  group.  It  is  used 
later  to  compute  ‘YEAR  GROUP  TOTAL  COST'  (TRC): 


TRC  «  PEC  ♦  RC 


RF  *  'PROJECTED  RETIREMENT  YEAR*  determined  by  adding 

'LENGTH  OF  SERVICE*  (LOS)  and  'YEAR  OF  SERVICE  ENTRY' 
(YS)  together: 


III 


alphabetical  listing 

OF  VARIABLES  AND  COMPUTATIONS 


T  »  An  Intermediate  variable  used  to  eventually  compute 
the  current  year  individual  normal  cost.  It  Is  com¬ 
puted  as  fol lows: 

T  -  [(1  ♦  01)  *•  LOS]  -  1 


TGT  «  "PROBABILITY  THAT  ENTRANT  RETIRES  AT  SELECTED  TARGET" 
Is  assigned  the  value  of  FZ(G): 

TGT  •  FZ(G) 


TRC  «  "CURRENT  TARGET  GROUP  RETIREMENT  COST"  Is  calculated 
by  multiplying  the  "TARGET  POPULATION  RETIRING"  (PEC) 
and  the  "CURRENT  YEAR  INOIVIOUAL  RETIREMENT  COST"  (RC) 
together : 

TRC  -  PEC  *  RC 


TTRC  -  "TOTAL  YEAR  GROUP  COST"  of  non-dlsabU Ity  retirees  by 
year  group,  starting  with  19S3.  Computed  by  the 
formu 1  a : 

TTRC  ■  TTRC  ♦  TRC 


TTTRC  •  "REGULAR  NAVY  COST"  of  1t$  non-dlsabi 1 1ty  retirees. 
Computed  by  the  following  formula: 

TTTRC  •  TTTRC  *  TTRC 


YS  -  "YEAR  OF  SERVICE  ENTRY"  with  the  Initial  value  of 
1953,  and  then  updated  by  one  year  for  the  next  year 
group  cost  calculations  by  the  formula: 

YS  •  YS  ♦  1 


Z  •  An  Integer  ranging  from  1  to  31  depending  upon  the 
value  of  the  retiree's  age,  "AG*  (e.g..  If  36<AG<37 
then  Z-l;  if  a5<AG<46  then  Z-31). 
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For  'YEAR  OF  ENTRY*  (YS)  after  1980,  the  following  sub¬ 
routine  is  utilized  to  calculate  last  3  yrs.  average 
salary: 

A  «  N  -  2  (The  basepay  for  the  year  that  is 

RP  •  BP  two  years  before  retirement  is 

FOR  K  >  1  TO  A  calculated.) 

VP  •  RP  *  IN 
RP  »  VP  ♦  RP 
NEAT  K 

SP  «  (IN  •  RP)  ♦  RP  (The  basepay  for  the  year  that 

is  one  year  before  retirement 
is  calculated.) 

PP  •  (SP  *  RP  ♦  PP)/3  (The  basepay  for  the  retirement 

year  was  previously  computed. 
The  three  basepays  are  added 
and  averaged . ) 
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APPENDIX  F 


ORIGINAL  ENTRYAGE  COMPUTER  PROGRAM 


00005 

00010 

00015 

00020 

00025 

00030 

00035 

00040 

00045 

00046 

00050 

00055 

00075 

00080 

00085 

00090 

00095 

00100 

00105 

00110 

00115 

00120 

00125 

00130 

00135 

00140 

00145 

00150 

00155 

00160 

00165 

00170 

00175 

00180 

00185 

00190 

00195 

00200 

00205 

00210 

00215 

00220 

00225 

00230 

00235 

00240 

00245 


rem  start  of  entryaga  program 
-print  ‘ 

print  'This  is  a  threa  part  interaetiva  program.  It  caleulatas  indi-' 

print  'vidual  and  ag^ra^ata  ailitary  ratiremant  costs.  At  this  point' 

print  'pleasa  typa  in  ind  for  the  individual  method  coat  calculations > ' 

print  'agg  for  aggregrate  matbod  cost  calculations >  or  gang  for  expanded  ' 

print  'multi  year  individual  cost  calculations.  If  you  wish  to  exit  ' 

print  'the  program  typa  halt.  Program  loaded  data  has  been  derived  from' 

print  'Department  of  Defense  sources  and  considers  1983  to  be  the  current' 

print  'year.  Pleasa  enter  your  program  choice  at  this  tima.' 

print  'aaaaaMMMMWnaaaaMaaaM-iniaanimMMwasiniaaaaaaaaaaaaaaaaaasasawaaaMSMMM  ■ 

input  ek$ 

restore 

dim  p(27>7) 

dim  e( 32 ) 

dim  oz<32) 

dim  d(27) 

dim  f(27) 

dim  fr(27) 

dim  r(27,7) 

dim  ed(  35 ) 

dim  od( 35 ) 

rem  1983  pay  matrix 

read  p(l>l  )>p(l  ,2  )>p(  1  >3  )>pl  1  >4l,p(  1 ,5  ),pl  1  >6  ) 
read  p(2>l)ip(2>2)ip(2>3)rp(2>4)>pl2>5Upl2>6) 
read  p(3>I  )>p<  3>2  )>p(  3,3  ),pl  3.4  l,pl  3. 5). pi  3.6) 
read  p(4.1)>p(4t2).p(4>3).p(4,4)>pl4.5)>pl4.6) 
read  ptS.l  ).plS»2).pl5.3)»pl5.4).pl5.5).pl5>6) 
read  pi  6,1  )  >p(  6,2  )  >p(  6,3  )>pl  6,4  ).pl  6.5  ).pl  6 .6  ) 
read  p(  7,1  )  .pi  7,2  )  ,pl  7,3  ),pl  7,4  l.pi  7,5  ).pl  7,6  I 
read  pl8,l),pl8,2),pl8,3>,pl8,4l,p(8,5),pl8,6l 
read  pi  9,1  I  .pi  9,2  )  ,pl  9,3  )  ,pl  9,4  l,pl  9,5  I  ,pl  9,6  ) 
read  pi  10 , 1  I  ,pl 10,2  ) ,pt 10, 3), pi  10,4 1, pt 10 ,5 ) ,pl  10 .6 ) 
read  pi  1 1 . 1  )  ,pl  1 1 ,2  )  ,pl  11 ,3  ),pl  1 1 ,4  ) ,pl  1 1 ,5  ) ,pl  1 1 ,6  ) 
read  pi  12 , 1 ) ,pl 12 ,2  I  ,p( 12,3 1 ,pl 12,4 )  ,pl 12,5  )  ,pl 12,6  ) 
read  p( 13, 1  )  ,p( 13,2  ),p( 13,3  ),p( 13,4 ) ,p( 13,5  ), pi  1 3,6 ) 
read  p(14,ll,pll4,2),pll4,3),p(14,4),pll4,5),pll4,6l 
read  pll5,ll,p(15,2),p(15,3),pll5,4l,p(15,5),pil5,6) 
read  pi  16 , 1  I ,pl  16 ,2 ) ,pl  16,3  )  ,pl 16 .4  I  ,pl 16,5  I  ,pl 16 ,6  I 
read  pi  1 7 ,1  )  ,pl 17,2  )  ,pl 17,3 )  ,pl 17,4  )  ,pl 17,5  )  ,pl 17,6  ) 
read  pll8,ll,pll8,2),p(18,3l,pll8,4l,pll8,5l,pll8,6l 
read  pi  1 9, 1  I  ,pl 19,2  )  ,pl 19,3  I  ,pl 19.4  I  .pi  1 9,5 ) ,pl  19,6 ) 
read  pl20,l I ,pl  20,2  I  ,pl 20 ,3  I  ,pl 20,4  I  ,pl 20 ,5  I  .pi  20 ,6  ) 
read  pi  21 , 1  I  ,pl  21 ,2  )  ,pl  21 .3  )  ,pl  21 .4  )  .pi  21 ,5  I  ,pl  21  ,6  I 
read  pi  22 ,1  )  ,pl  22 ,2  )  ,pl  22,3  I, pi  22.4l,p(  22  .5), pi  22,6) 
read  pi  23,1 ) ,pl  23,2  ) .pi  23,3 ) .pi  23.4  l,pl 23,5  ), pi  23,6  ) 
read  pi  24,1  )  ,pl  24,2  )  ,pl  24,3), pi  24,4), pi  24,5), pi  24,6  ) 
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00250  read  pi  2S>1 ) ,p( 25 ,2 ) ,pl  25,3 )>p( 25.4 ) .p( 25.5 ) ,p( 25>6  I 
00255  read  pi  26 . 1)  .p( 26 .2  )  .p( 26.3 ),pl 26.4 ),p( 26.5 ) .pi  26.6  ) 

00260  rent  enlisted  life  expectancy  data 

00265  read  el  1  I  .el  2 )  .el  3 1  .el 4  ).el  5  ),el  6 1.el  7 1,el8 )  .el  9 ) .el  lOI.el  II  ) 

00270  read  el  UI.el  13),el  14 )  ,e(  15  I  .el  16 1. el  17  )  .el  IS). el  19 )  .el  20  )  .el  21 ) 

00275  read  el  22  )  .el  23 )  .el  24 )  .el  25 )  .el  26 )  .el  27 )  .el  28 )  .el  29 1 , el  30  I  .el  31  ) 

00280  rem  officer  life  expectancy 

00285  read  ozl  1  I  .ozl  2  )  .ozt  3  )  .ozl  4 )  .ozl  5 )  .ozl  6  ),ozl  7  )  .ozl  8  )  .ozl  9  )  ,ozl  10  )  .ozl  1 1  ) 
00290  read  ozl 12  I  .ozl 13 )  .ozl 14 )  ,ozl 15  )  .ozl 16 ) .ozl 17  )  .ozl 18  )  .ozl 19  )  .ozl 20  )  .ozl 21  ) 
00295  read  ozl  22  l.ozi  23  I. ozl  24  l.ozi  25  ).ozl  26  l.ozi  27  ).ozl  28  )  .ozl  29  l.ozi  30  )  .ozl  31  I 
00300  rem  average  los  matrix 

00305  read  dl  1  )  .dl  2  )  .dl  3  I  .dl  4  1  .dl  5  I  ,dl  6  1  .dl  7  )  ,dl  8  )  .dl  9  ) 

00310  read  dl  10).dl  11  )  .dl  12 )  ,dl  13 )  .dl  14l.dl  15).dl  16  I  .dl  17 )  .dl  18  ) 

00315  read  dl  19  I  .dl  20  )  .dl  21  I  .dl  22  I  .dl  23  I  .dl  24  )  ,dl  25  I  .dl  26  I 

00320  rem  average  age  at  retirement  matrix 

00325  read  f  I  1  )  .f  I  2  I  .f  I  3  )  .f  I  4  I  .f  I  5  I  .f  I  6  I  .f  I  7 1  .f  I  8  I  .f  I  9  ) 

00330  read  f I  10  I  .f I  1 1  )  .f I  12  )  .f I  13  )  .f I  14 1  .f I  15  )  .f I  16  )  .f I  17  )  .f I  18  I 

00335  read  f  I  1 9  I  .f  I  20  I  .f  I  21  )  .f  I  22  )  .f  I  23  I  .f  I  24  l.f  I  25  )  .f  I  26  I 

00340  rem  target  retirement  grade  probability  matrix 

00345  read  fzl  1  ).fzl  2  I  .f  zl  3  I  .fzl  4  I  .f  zl  5  I  .f  zl  6  l.fzl  7  I  .f  zl  8  )  .f  zl  9  ) 

00350  read  fzl  10  l.fzl  11  l.fzl  12  l.fzl  13  l.fzl  14  l.fzl  15),fzl  16  l.fzl  17  I. fzl  181 

00355  read  fzl  19  l.fzl  20  l.fzl  21  l.fzl  22  I  .fzl  23  I  .fzl  24  I. fzl  25  l.fzl  26  I 

00360  rem  enlisted  accession  matrix 

00365  read  edi  1  I  .edi  2  I  .edi  3  I  .edi  4  I  .edi  5  I  .edi  6  I  .edi  6  I  ,edl  8  I  ,edl  9  I  .edi  10  I  ,edl  1 1  I 
00370  read  edi  12  I. edi  131. edi  141. edi  151. edi  16  I. edi  171. edi  18  I. edi  19  1. edi  20  I. edi  21  I 

00375  read  edi  22  I  .edi  23  I  .edi  24  I  ,edl  25  I  .edi  26  I  ,edl  27  I  .edi  28  I  .edi  29  I  .edi  30  I  ,edl  31  I 

00380  read  edi 32  I 

00385  rem  officer  accession  matrix 

00390  read  odi  1  l.odi  2  I  .odi  3  I  .odi  4  I  .odi  5  l.odi  6  I  .odi  7  I  .odi  8  I  .odi  9  I  ,odl  lOl.odI  11  I 
00395  read  odi  12  l.odi  13  l.odi  14  l.odi  15 1. odi  16  l.odi  17  l.odi  18  l.odi  19  l.odi  20  I  .odi  21  I 

00400  read  odi  22  I  .odi  23  I  .odi  24  I  .odi  25  I  .odi  26  I  .odi  27  I  .odi  28  I  .odi  29  I  .odi  30  I  .odi  31  I 

00405  read  odi 32  I 
00410  rem  1983  pay  data 

00415  data  573.6.573.6.573.6.573.6.573.6.573.6 
00420  data  642.9.642.9.642.9.642.9.642.9.642.9 
00425  data  762.3.762.3.762.3.762.3.762.3.762.3 
00430  data  888.6.888.6.888.6.888.6.888.6.888.6 
00435  data  1102.8.1102.8.1102.8.1102.8.1102.8.1102.8 
00440  data  1299.3.1299.3.1299.3.1299.3,1299.3.1299.5 
00445  data  1483.5.1583.1.1583.1.1779.9.1779.9.1779.9 
00450  data  1681 . 2. 1 779. 9. 1 779. 9. 1978. 5. 1978. 5. 1978.5 
00455  data  1917.9.2019.2019.2215.2.2215.2.2215.2 
00460  data  1660.3,1660.8.1660.8.1660.8.1660.8.1660.8 
00465  data  1789.8.1862.4,1862.4.1862.4.1362.4.1862.4 
00470  data  1994.1,2066.4,2066.4,2139.3.2139.3.2139.3 
00475  data  2267.7,2243.6.2243.6.2526.2526,2526 
00480  data  1382.4,1382.4,1382.4,1382.4.1382.4.1384.2 
00485  data  1716.6,1716.6,1716.6.1716.6.1716.6.1716.6 
00490  data  1752.6,1752.6,1752.6,1752.6.1752.6,1752.6 
00495  data  2029.2,2029.2,2029.2,2029.2,2029.2.2029.2 
00500  data  2361.9,2361.9,2361.9.2361.9,2361.9.2361.9 
00505  data  2397.3,2397.3,2397.3,2397.3,2397.3,2397.3 
00510  data  2731.2,2731.2,2731.2,2731.2,2731.2,2731.2 
00515  data  3155.7,3266.1,3266.1.3266.1.3266.1,3266.1 
00520  data  3488.4,3690.9,3690.9,4002.9,4002.9,4002.9 
00525  data  4555.8,4555.8,4555.8,4555.8,4555.8.4555.8 
00530  data  4791.6,4791.6,4791.6,4791.6.4791.6,4791.6 
00535  data  4791.6,4791.6,4791.6,4791.6,4791.6,4791.6 
00540  data  4791.6,4791.6,4791.6,4791.6.4791.6,4791.6 
00545  rem  enlisted  life  expectancy  data 

00550  data  37.47,36,57,35.67,34.77,33.86,32.95,32.04,31.14,30.24,29.34.28.46 
00555  data  27.59,26. 73,25.88,25.04,24.22.23.41 .22.62,21.86,21.1,20.36 
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00560  data  19. 62>18. 9,18. 18,17.47,16. 78>16. 1 ,15.44,14. 79,14. 16,13.54 
00565  ren  officer  life  expectancy  data 

00570  data  40.9,39.97,39.04,38.13,37.2,36.28,35.37,34.45,33.54,32.63,31.73 
00575  data  30.83,29.94,29.06,28.18,27.31,26.45,25.6,24.75,23.91,23.09 
00580  data  22 . 27 ,21 .46,20.65,19.87,19. 08,18. 31 ,17.55,16.81 , 16. 07, 15. 35 
00585  ten  average  los  data 

00586  rea  note  there  ie  an  entry  in  this  matrix  -and  the  two  below- 

00587  ren  for  ol ,ole,o2,o2e,o3,o3e  -  hence  26  entries 

00590  data  20.8,20.4,20.8,21,21,21,21.8,22.7,24.3 

00595  data  22.1,22.7,23.1,22.7,21.9,21.9,22.5,22.5,24.1 

00600  data  24.1,24.2,24.9,28,29.9,30.4,30.4,30.4 

00605  ren  average  a^e  at  retirement  data 

00610  data  38.8,39.8,40.6,40.7,40.5,40,40.9,41.3,42.9 

00615  data  43,44.1,42.2,47.1,43.1,43.1,44,44,43.6 

00620  data  43.6,44.4,46.3,50.5,53,56.2,58.1,59.8 

00625  rem  target  retirement  grade  probability  data 

00630  data  .0001 ,. 0001 , .0023, .0128, .0578, .2734, .4229, . 101 , .0546 

00635  data  . 005, . 01 7, . 0102, .0129, .0003, .0003, .0044, . 0044, . 0252 

00640  data  . 0252 ,. 3926, . 3299, . 2586, .002, .0138, .003, .0006 

00645  rem  enlisted  accession  data 

00650  data  202.4,171.4,88.1,54.9,121.4,112,80.4,89.7,86.4,91.4,94.2 
00655  data  107.4,85.3,95,94.3,145.7,101.1,122.8,147.1,100.2,78.7,89.2 
00660  data  99,83.6,89.7,99.2,104.7,70.1,65.6,75.1,79.1,63.9 
00665  ran  officer  accession  data 

00670  data  8,9,11.9,11.4,9.7,8.8,13.4,8.9,8.9,11,8.6 
00675  data  11.9,10.5,9.8,10.9,11,13,13.1,13.6,3.5,9.5,11.1 
00680  data  7. 6 ,6,6 .5 ,6 . 6,6. 6,6. 1 ,7, 6.8, 7.5, 7 
00685  ren  1982  pay  data 

00690  read  r(  1 ,1  I ,r(  1 ,2  I  ,r<  1 ,3 l,r(  1 ,4  l,rl  1 ,5 ) ,r(  1 ,6  ) 

00695  read  r(  2 , 1  )  ,r(  2 ,2  I  ,r(  2,3 1 ,r(  2,4 ) ,r(  2,5 ) ,r(  2 ,6 ) 

00700  read  r(  3, 1 ) ,r<  3 .2  )  ,r(  3,3  l,rl  3,4 ) ,rl  3,5  ) ,rl  3,6 ) 

00705  read  r(  4. 1  )  ,r( 4 ,2  )  ,r( 4,3 1  ,r(4,4 ) ,r<4,5 ) ,r( 4,6  1 
00710  read  r(  5 ,1 ) .r(  5,2 ) ,r( 5,3 ) ,rl 5,4 ) ,r( 5,5 )  ,r( 5,6  ) 

00715  read  r(  6 ,1 1  ,r«  6 ,2  ) ,r<  6,3 ) ,r(  6,4 ) ,rt  6 ,5 ) ,rl  6,6 ) 
v0720  read  r(  7, 1 J  ,r(  7,2  I  ,r(  7,3 1 ,rl  7,4  l,r(  7,5 ) ,r(  7,6  ) 

00725  read  rl  8,1 )  ,rl  8,2 ) ,rt 8,3),r( 8,4) ,rl 8,5 ) ,r( 8,6  ) 

00730  read  r(  9,1)  ,r(  9.2  l,r(  9,3  ),r(  9,4),r(  9,5  ),r(  9,6  ) 

00735  read  rl 10 , 1  I  ,r( 10 ,2  )  ,r( 10,3 ) ,r( 10,4 ) ,rl 10,5 )  ,r( 10,6  ) 

00740  read  rl  1 1 , 11  ,r(  1 1 ,2  )  ,rl  11 ,3 1  ,r(  1 1 ,4 )  ,rl  1 1 .5  )  ,rl  1 1 ,6  ) 

00745  read  rl  12 , 1  I  .rl  12 ,2  )  ,rl  12,3 )  .rn2,4 )  ,rl  12 ,5 )  ,rl  12,6  ) 

00750  read  rl 1 3, 1  I  .r 1 13,2  I  .rl 13,3 )  ,r< 13.4  I  ,cl 13 ,5  )  ,rl 13,6  I 
00755  read  rl 14, 1  I  ,rl 14,2  I ,rl 14,3 1 ,rl 14,4 ),rl 14,5  )  ,rl 14,6  ) 

00760  read  rl 15, 1  I  ,rl 15,2  )  .r( 15,3  I  ,rl 15,4  )  ,rl 15,5 )  ,r( 15,6 > 

00765  read  rl  16 , 1  )  ,r  I  16 ,2 ) ,rl  16,3 > ,rl  16 ,4  ),rl 16 .5  )  ,r< 16 ,6  ) 

00770  read  rl 17, 1 ) ,rl  17 ,2  )  ,rl 17,3 ) ,rl 17,4 ) ,rl 17,5 ) ,rl 17,6 ) 

00775  read  rl 18, 1  I  ,rl 18,2  )  ,rl 18.3  I  ,rl 18,4  I  ,rl 18,5  )  ,rl 18,6  ) 

00780  read  rl  19, 1  )  ,rl  19,2  )  ,rl  19,3 )  .rl  19,4  )  ,rl  19,5  )  ,rl  19,6  ) 

00785  read  rl  20 ,1  I  ,rl  20 ,2  I  ,r(  20,3  I  ,rl  20 ,4  )  ,rl  20,5  I  ,rl  20 ,6  I 
00790  read  rl  21 , 1  I  ,rl  21 ,2  I  ,rl  21 .3  I  ,rl  21 ,4  I  ,rl  21 ,5  I  ,rl  21 ,6  ) 

00795  read  rl  22 , 1  I ,rl  22 ,2  I ,rl  22,3 )  ,rl  22,4  I  ,rl  22 >5  I  ,rl  22 ,6  I 
00800  read  rl 23, 1  I  ,rl 23,2  I  .rl 23.3  )  ,rl 23,4  1  ,rl 23,5  )  ,rl 23,6  ) 

00805  read  rl  24, 1  I .rl  24,2 ) ,rl  24,3  I  ,rl 24,4  )  ,rl 24 ,5  )  ,rl 24 ,6  I 
00810  read  rl  25 , 1  I  ,rl  25 ,2  I  ,rl  25,3  I  ,rl  25,4  I  ,rl  25 ,5  I  ,rl  25.6  I 
00815  read  rl  26 . 1  I  ,rl  26 ,2  I  ,rl  26 ,3  I  .rl  26.4  I  ,rl  26 .5  )  ,r(  26  ,6  ) 

00820  rem  1982  pay  data 

00825  data  551.4,551.4,551.4,551.4,551.4,551.4 
00830  data  618.3,618.3,618.3,618.3,618.3,618.3 
00855  data  732.9,732.9,732.9,732.9,732.9,732.9 
00840  data  854.4,854.4,854.4,854.4,854.4,854.4 
00845  data  1060.5,1060.5,1060.5,1060.5,1060.5,1060.5 
00850  data  1249.2,1249.2,1249.2,1249.2,1249.2,1249.2 
00855  data  1426.5,1522.2,1522.2,1711.5,1711.5,1711.5 
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00860  data  1616.4,1711 .5>1711 .5>1902. 3. 1902. 3,1902. 3 

00865  data  1844.1,1941.3,1941.3,2130,2130,2130 

00870  data  1596.9,1596.9,1596.9,1596.9,1596.9,1596.9 

00875  data  1721.1,1790.7,1790.7,1790.7,1790.7,1790.7 

00880  data  1917.3,1986.9,1986.9,2057.1,2057.1,2057.1 

00885  data  2180.4,2253.6,2253.6,2428.8,2428.8,2428.8 

00890  data  1329.3,1329.3,1329.3,1329.3,1329.3,1329.3 

00895  data  1650.6,1650.6,1650.6,1650.6,1650.6,1650.6 

00900  data  1685.1,1685.1,1685.1,1685.1,1685.1,1685.1 

00905  data  1951.2,1951.2,1951.2,1951.2,1951.2,1951.2 

00910  data  2271,2271,2271,2271,2271,2271 

00915  data  2305.2,2305.2,2305.2,2305.2,2305.2,2305.2 

00920  data  2626.2,2626.2,2626.2,2626.2,2626.2,2626.2 

00925  data  3034.2,3140.4,3140.4,3140.4,3140.4,3140.4 

00930  data  3354.3,3349,3349,3849,3849,3849 

00935  data  4176,4176,4176,4176,4176,4176 

00940  data  4176,4176,4176,4176,4176,4176 

00945  data  4176,4176,4176,4176,4176,4176 

00950  data  4176,4176,4176,4176,4176,4176 

00951  if  (ek$='halt'  )  then  stop 

009r2  if  (ck$='agj‘)  then  goto  2360 

00953  if  (ck$='gang')  then  goto  2800 

00955  rem  begin  individual  subprogran 

00960  g=99 

00965  print  'Input  paygrada  at  retirement  (e.g.  e7,  h3,  o3e,  olO).' 

00970  input  pg$ 

00975  if  (pg$='al‘)  then  g=l 
0Q9S0  if  (pg9='e2')  then  g=2 
00985  if  (pgS*'e3')  then  g=5 
00990  if  (pg$a'e4'  )  then  g=4 
00995  if  (pg9='eS')  then  g=5 
01000  if  (pg$3<e6')  then  gs6 
01005  if  (pg$s'e7')  then  g=7 
01010  if  Ipg$3'e8*)  then  g=8 
01015  if  (pg$s'e9')  then  g=9 
01020  if  lpg$s’wl’)  then  g»10 
01025  if  (pg$3'u2')  then  g^ll 
01030  if  (pg$s'u3')  then  gsl2 
01035  if  (pg$s'w4')  then  g*13 
01040  if  (pgS='ol')  then  g=14 
01045  if  (pg$=‘ole')  then  g=15 
01050  if  (pg9='o2')  then  g=16 
01055  if  (pgS='o2a')  then  g=17 
01060  if  (pgS='o3')  then  g=18 
01065  if  (pg$z‘o3e')  then  g=19 
01070  if  (pg$='o4')  then  g=20 
01075  if  (pg$='o5'  )  then  g=Zl 
01080  if  (pg$3'o6‘)  then  g=22 
01085  if  (pg$='o7')  then  g=Z3 
01090  if  (pg«='o8')  then  g=24 
01095  if  (pg$»'o9’)  then  g=25 
01100  if  (pgOs'olO'l  then  g=26 
01105  if  (g=99)  then  goto  960 

OHIO  print  'Input  year  of  service  entry  (e.g.  1972).' 

01115  input  ys 

01120  if  ys<1776  then  goto  1110 

01125  print  using  'Average  length  of  service  for  this  paygrade  *  W.t8'>d(gl 
01130  print'Is  this  acceptable?  if  yes  type  y  if  no  type  n.' 

01135  input  lo9 

01140  if  (loSs'y')  then  los  =  dig) 

01145  if  (lo$3'n')  then  goto  2080 
01150  if  (los  <20 )  then  goto  2080 
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01155  if  <los<2Z)  and  ( los>=2a  I  then  1=1 

01160  if  (los<24)  and  (loa>=2Z)  then  1=2 

01165  if  I1o3<26)  and  (los>=24)  then  1=5 

01170  if  tloa<Z8)  and  ( los>=26 )  then  1=4 

01175  if  (los<30)  and  (los>=2Sl  then  1=5 

01180  if  (los>=30)  then  1=6 
01185  bp=p(g,l) 

01190  cf=1983 
01195  rf=los*ys 

01200  pcint  using  'Projected  retlxenent  year  =  )rf 

01205  n=rf-cf 

01210' print  'Salary  scale  increase  is  loaded  as  .055.’ 

01215  print  'Is  this  acceptable?  If  yes  type  y  if  no  type  n.' 

01220  input  seO 

01225  if  (sc$='n'<  then  goto  2000 

01230  if  (scS='y'l  then  in=.055 

01235  pp=bp 

01240  for  i=l  to  n 

01245  tp=pp»in 

01250  pp3tp-»pp 

01255  next  i 

01260  print  using  'Current  monthly  basepay  at  retirement  grade  ' (bp 

01265  print  using  'Projected  monthly  basepay  at  retirement  grade  =$tttt<. W (pp 
01270  print  'Retirement  is  currently  computed  at  .025  of  basepay.' 

01275  print  'Is  this  acceptable?  If  yea  type  y  if  no  type  n.  ' 

01280  input  dlS 

01285  if  (dl$='y')  then  dl=.025 
01290  if  (dl$='n')  then  goto  2220 
01295  fac  =los  •  dl 

01300  print  'Retirement  ceiling  is  currently  set  at  .75  of  base  pay.' 

01305  print  'Is  this  acceptable?  If  yea  type  y  if  no  type  n. ' 

01310  input  dm6 

01315  if  (dffl$='y')  then  dm=.75 
01320  if  (dm«='n')  then  goto  2250 
01325  if  (fac>dM)  then  fac=dm 
01330  if  (ys>1980)  then  goto  2030 
01335  ann=fac«pp*12 

01340  print  using  'Projected  annual  retirement  pay  =$*****1.M' vann 
01345  print  'Annual  discount  rats  is  loaded  as  .09. ’ 

01350  print  'Is  this  acceptable?  If  yes  type  y  if  no  type  n. ' 

01360  input  dx$ 

01365  if  (dx0='n')  then  goto  2095 
01370  if  (dx«='y')  then  di=.09 

01375  print  using  'Average  age  at  retirement  for  this  paygrade  =  t*.tf'»f(g) 
01380  print  'Is  this  acceptable?  If  yes  type  y  if  no  type  n. ' 

01385  input  got 

01390  if  lgot='y')  then  ag=t(g) 

01395  if  (got='n'l  then  goto  2110 
01400  if  (ag<36)  then  goto  2110 
01405  if  (ag<37)  and  (ag>=36l  then  z=I 

01410  if  lag<38)  and  (ag>=37)  then  z=2 

01415  if  lag<39l  and  (ag>=38)  then  z=3 

01420  if  (ag<40l  and  (ag>=39)  then  z=4 

01425  if  (ag<41)  and  ( ag>=40 )  then  z=S 

01430  if  (ag<4Z)  and  lag >=41)  then  z=6 

01435  if  lag<43)  and  (ag>=42)  then  r=7 

01440  if  (ag<44)  and  (ag>=43)  then  z=8 

01445  if  (ag<45)  and  iag>=44)  than  z=9 

01450  if  ( ag<46 1  and  lag>=45)  then  z=10 

01455  if  (ag<47)  and  (ag>=46)  then  z=ll 

01460  if  lag<48)  and  iag>=47)  then  z=12 

01465  if  (ag<49)  and  lag>=48l  then  z=I3 
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01470 

if 

(ag<50) 

and 

(ag>=49) 

then 

z=14 

01475 

if 

(ag<51 ) 

and 

(ag>=50) 

then 

z=lS 

01480 

if 

(ag<52) 

and 

(ag>=Sl 1 

then 

r=16 

01485 

if 

1 ag<53 ) 

and 

(ag>=52) 

then 

z=17 

01490 

if 

( ag<54 ) 

and 

(ag>-53) 

then 

z=18 

01495 

if 

( ag<55 ) 

and 

( ag>354 ) 

then 

z=19 

01500 

if 

( ag<56 ) 

and 

(ag>=55) 

then 

z=20 

01505 

if 

1 ag<57 ) 

and 

(ag>=56) 

then 

z=21 

01510 

if 

1 ag<58 ) 

and 

(ag>=57) 

then 

z=22 

01515 

if 

( ag<59 ) 

and 

1 ag>=58 ) 

then 

z=23 

01520 

if 

( ag<60 ) 

and 

lag>=S9) 

then 

z=24 

01525 

if 

( ag<61  ) 

and 

( ag>=60 ) 

then 

z=2S 

01530 

if 

lag<62) 

and 

(ag>=61 ) 

then 

z=27 

01535 

if 

I ag<63 ) 

and 

(ag>=62) 

then 

z=28 

01540 

if 

( ag<64 ) 

and 

( ag>=63 ) 

then 

z=29 

01545 

if 

(ag<65) 

and 

( ag>~64 ) 

then 

z=30 

01550 

if 

lag>=65)  then  z=31 

01555 

if 

lg<=9)  then 

li=e( X ) 

01560 

if 

(g>=10) 

ther 

1  li=oz(r 

1 

0156S  print  'Remainin;  life  expectancy  from  actuarial  tables  s'lli 
01570  print  'Is  this  acceptable?  If  yes  type  y  if  no  type  n. ' 

01575  input  ch$ 

015SO  if  (ch$='n')  then  goto  1985 

01585  <i=(l>dl)»«li 

01590  presann«K  (  l-(  l/q  )  )/di  ) 

01595  print  using  'Present  value  of  future  retirement  benefits  W (pre 

01600  t3(  ( l4di  )»«los)-l 
01605  nc=pre«(di/t) 

01610  print  using  'Current  year  individual  normal  cost  tnc 

01615  print'First  year  of  normal  costing?  If  yes  type  y  if  no  type  n.‘ 

01620  input  nc$ 

01625  if  <nc$  ='y')  then  goto  2195 

01630  print  'Do  you  know  previous  year  normal  cost?  If  yes  type  y  if  no  type  n.' 
01635  input  pn$ 

01640  if  (pnS»'y')  then  goto  2015 

0164S  print  using  'Salary  scale  '/.  used  in  current  year  normal  cost  -  .**#8' tin 
01650  print  'Was  this  your  prior  year  estimator?  If  yes  type  y  if  no  type  n. ’ 
01655  input  ss$ 

01660  if  (ssSa'y'l  then  jn*in 
01665  if  (ss$*'n')  then  goto  2310 
01670  h=g 
01675  m:l 
01680  <ip=r(  h  >m  ) 

01685  o=ntl 
01690  xp=<ip 
01695  for  j=l  to  o 
01700  up=xp*jn 
01705  xp=up*xp 
01710  next  j 

01715  if  (ys>1980)  then  goto  2265 
01720  bnn=fac*xp*12 

01725  print  using  'Discount  rate  used  in  current  year  normal  cost  =  .ttfO'tdi 

01730  print  'Was  this  your  prior  year  estimator?  If  yes  type  y  if  no  type  n.' 

01735  input  drO 

01740  if  (dr$*'y'>  then  ei=di 

01745  if  (dr^s'n't  then  goto  2325 

01750  print  'Remaining  life  expectancy  used  in  current  year  normal  cost  ='(11 
01755  print  'Was  this  your  previous  estimator?  If  yes  type  y  if  no  type  n. ' 
01760  input  dh« 

01765  if  (dh9>'y'l  then  mi-li 
01770  if  <dh$>'n')  then  goto  2205 
01775  s=(  1+ei  l*«mi 
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01780  <{re=bnn*(  1 1-(  1/s  I  I/el ) 

01785  u=n  l+ei)**los)-l 
01790  oc=<ire»l  ei/u  I 

01795  print  usin?  'Previous  year  individual  normal  cost=$8*8888.8t' )oc 
01800  fc=nc-oc 
01805  print 

01810  print  usin?  ‘Current  year  ^ains  or  losses  »fc 

01815  print  'Any  deferred  gains  or  losses?  If  yes  type  y  if  no  type  n.' 

01820  input  dg$ 

01825  if  (dgS='y')  then  goto  2235 

01830  if  IdgSz'n'l  then  gosub  2145 

01835  'v=n*l 

01840  x  =  l/(  (  l+di  HH*v  I 

01845  ap  =  (  fc+gl  )»l  di/I  1-x  I  I 

01850  print  using  'Applied  gain  or  loss  =$888*8. #8’ lap 
01855  rc=nc*ap 

01860  if  lg<20l  then  pro=.12 
01865  if  lg>=20)  then  pro=.4 

01870  print  using  ‘Current  year  individual  retirement  cost  =$88888.88* irc 
01875  print  using  ‘Probability  of  new  entrant  retiring  =  .8888' ipro 
01880  print  'Is  this  acceptable?  If  yea  type  y  if  no  type  n. ' 

01885  input  pr$ 

01890  if  lpr$=‘n')  then  goto  1970 

01895  print  using ‘Probability  of  entrant  retiring  at  target  grade  =  .8888‘ifzlg) 
01900  print  ‘la  this  acceptable?  If  yes  type  y  if  no  type  n.' 

01905  input  fz$ 

01910  if  lfz$='y')  than  tgt=fz<g) 

01915  if  lfz$='n'l  then  goto  2125 

01920  if  l>-s>19S0)  and  (ya<1983l  then  goto  2340 

01925  print'Input  number  of  entrants  in  initial  year  of  service  (a.g.  230000),' 
01930  input  new 
01935  pec=pro*tgt*naw 

01940  print  using  ‘Target  population  retiring  88888888' ipee 
01945  trc=pec*rc 

01950  print  'Paygrade  at  retirement  =  ' IP9^ 

01955  print  '^ear  of  service  entry  »  ' lys 

01960  print  using  'Current  target  group  retirement  cost  =$8888888888.88' >tre 
01965  goto  5 

01970  print  'Input  your  estimate  of  retirement  probability  le.g.  .3456).' 

01975  input  pro 
01980  goto  1895 

01985  print  'Input  your  estimate  of  remaining  life  expectancy  le.g.  39.41).' 
01990  input  11 
01995  goto  1585 

02000  print  'Input  salary  scale  increase  as  decimal  le.g.  .065). 

02005  input  in 
02010  goto  1235 

02015  print  'Input  previous  year  normal  cost  (e.g.  1389.24).' 

02020  input  oc 
02025  goto  1800 
02030  a=n-2 
02035  rp=bp 
02040  for  l<=l  to  a 
02045  vp=rp*in 
02050  rp=vp*rp 
02055  next  k 
02060  sp=l  in*rp  )*rp 
02065  pp  =  l  sp«rp»pp  1/3 

02070  print  using  'Retirement  basis  for  post  1980  entrant  =$888818.88' tpp 
02075  goto  1335 

02080  print  'Input  your  estimate  length  of  service  at  retirement  (a.g.  24.8).' 
02085  input  los 
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02090  joto  1150 

02095  print  ‘Input  discount  rate  estimate  as  decimal  (e.g.  .11).' 

02100  input  di 
02105  joto  1375 

02110  print  'Input  your  estimate  of  age  at  retirement  le.g.  47.86).' 

02115  input  ag 
02120  goto  1400 

02125  print  'Input  your  probability  that  entrant  retires  at  selected  target' 
02130  print '  ranlc/grade  le.g.  .235). 

02135  input  tgt 
02140  goto  1920 
02145  print 

02150  print ‘Deferred  gains  and  losses  are  the  amortized  value  of  differences' 
02155  print'caused  by  fluctuations  in  the  estimating  variables  over  time.  The' 
02160  print 'actuarial  model  dampens  the  impact  of  these  fluctuations  to  a  zero' 
02165  print ‘average  over  the  wor>cing  life  of  the  individual.  Therefore,  an' 
02170  print'entry  of  zero  for  this  variable  does  not  invalidate  the  model.' 

02175  print 
02180  gl=0 
02185  fd=0 
02190  return 
02195  ap=0 
02200  goto  1855 

02205  print  'Input  your  estimate  of  remaining  life  expectancy  le.g.  42.1).' 

02210  input  mi 
02215  goto  1775 

02220  print  'Input  desired  retirement  rate  as  decimal  le.g.  .025).' 

02225  input  dl 
02230  goto  1295 

02235  print  'Amount  of  deferred  gain  or  loss  (e.g.  11.34).' 

02240  input  gl 
02245  goto  1835 

02250  print  ‘Input  desired  retirement  ceiling  as  decimal  le.g.  .75).' 

02255  input  dm 
02260  goto  1325 
02265  bso-2 
02270  yp=<ip 
02275  for  e=l  to  b 
02280  '.<p=yp*jn 
02285  yp=wp*yp 
0229C  next  c 
02295  zp  =  (  jn»yp  )+yp 
02300  xp  =  (yp+zp+xp  1/3 
02305  goto  1720 

02310  print  'Input  prior  year  salary  scale  /  estimator  as  a  decimal  le.g.  .06).' 
02315  input  jn 
02320  goto  1670 

02325  print  'Input  prior  year  discount  rate  estimator  as  a  decimal  (e.g.  .091.' 
02330  input  ei 
02335  goto  1750 

02340  if  (g>=20)  then  new=1000eod(ys-1950 ) 

02345  if  (g<20)  then  new=1000*ed( ys-1950 ) 

02350  print  'Number  of  regular  entrants  in  intial  year  of  service  =‘)new 
02355  goto  1935 

02360  print  'You  are  now  in  the  aggregate  method  portion  of  this  program.' 

02365  rem  begin  aggregate  subprogram 

02370  print'All  dollar  amounts  should  be  input  as  millions  le.g.  $12,332,223.24' 
02375  print  'should  be  typed  as  12.332). 

02380  print 

02385  print  'What  is  the  present  value  of  future  benefits?  le.g.  4334.785).' 
02390  input  pbe 

02395  print  'What  is  the  present  value  of  future  compensation?  le.g.  9127.589).' 
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02400  input  pee 
02405  pf=pbe/pco 

02410  print  using  'Normal  cost  percentage  factor  as  decimal  =t.tfM'vpf 
02415  print  'Is  this  acceptable?  If  yes  type  y  if  no  type  n.  ' 

02420  input  pf$ 

02425  if  (pf«='y')  then  goto  2435 
02430  if  (pf«='n')  then  goto  2605 

02435  print  'Input  current  fiscal  year  total  base  pay  (e.g.  27465.552).' 

02440  input  tbf 
02445  mc=pf»tbf 

02450  print  using  'Current  year  active  force  normal  cost  =$»MMni.t*6' imc 
024SSprint  'First  year  of  normal  costing?  If  yes  type  y  if  no  type  n.' 

02460  input  an$ 

02465  if  (ant='y')  then  goto  2650 

02470  print  'Do  you  )<now  previous  year  normal  cost?  If  yes  type  y  if  no  type  n 
02475  input  se$ 

02480  if  (seS='n')  then  goto  2490 
02465  If  (se«='y')  then  goto  2620 

02490  print  'Input  previous  year  normal  cost  '/.  factor  as  a  decimal  (e.g.  .432) 
02495  input  qf 

02500  print  'Input  previous  year  total  base  pay  te.g.  22432.516).' 

02505  input  ubf 
02510  ve=<if*ubf 

02515  print  using  'Previous  year  normal  cost  =$66*66. tt* ' ivc 
02520  wc*mc-vc 

02525  print  using  'Current  years  actuarial  gain  or  loss  =$66666.666* (ue 
02530  print  'Any  deferred  gain  or  loss?  If  yes  type  y  if  no  typo  n. ' 

02535  input  dg$ 

02540  if  (dg$='y')  then  goto  2635 
02545  if  (dg$='n'  )  then  gosub  2145 

02550  print  'Input  discount  rate  as  decimal  (e.g.  .112).' 

02555  input  gi 
02560  gis=( l+gi)**20 
02565  gist=l/gis 
02570  hist=l-gist 
02575  blip=gi/hi3t 
02580  fa=(wc*fd)»blip 

02585  print  using  'Current  year  gains/losses  applied  =$6666.666* )f a 
02590  trc=mctfa 

02595  print  using  'Current  year  total  retirement  cost  =$66666.666' itre 
02600  goto  5 

02605  print  'Input  override  normal  cost  '/.  factor  as  decimal  (e.g.  .553).' 

02610  input  pf 
02615  goto  2435 

02620  print  'Input  previous  year  normal  cost  (e.g.  4123.237).' 

02625  input  vc 
02630  goto  2520 

02635  print  'Input  amount  of  deferred  gain  or  loss  (e.g.  1213.456).' 

02640  input  fd 
02645  goto  2550 
02650  fa=0 
02655  goto  2590 

02700  rem  multiyear  expanded  individual  normal  cost  subprogram 
02800  print  'You  are  now  in  the  multiyear  expanded  individual  normal  cost  ' 
02805  print  'portion  of  the  program.  Note  that  in  this  section  an  answer  to' 
02810  print  'an  adjustment  question  of  0  means  no  change. ' 

03000  Print  'Input  desired  discount  rate  as  decimal  (e.g.  .08). 

03005  input  di 

03010  print  'Input  desired  rate  of  salary  increase  as  decimal  (e.g.  .055). 
03015  input  in 

03020  print  'Input  desired  '/,  rate  of  retired  pay  par  year  of  duty  (e.g.  .025)' 
03025  input  dl 
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03030  print  'Input  desired  aaxijnun  '/.  of  pay  basis  at  retirement  <e.g.  .75). 
03031  input  dm 

03032  print  ‘Input  minimum  los  required  to  retire  le.g.  20). 

03033  input  mrt 

03040  print  ‘Input  adjustment  to  entrant  retirement  probability  for  officers' 
03041  print  ‘(e.^.  -.02).  The  baseline  value  is  0.4. 

03042  input  pror 

03045  print  ‘Input  adjustment  to  entrant  retirement  probability  for* 

03046  print  ‘enlisted  personnel. 

03047  print  ‘le.;.  -.02).  The  baseline  value  is  0.12. 

03048  input  proq 

03050  print  ‘Input  adjustment  to  LOS  and  ago  at  retirement  (e.;.  -2). 

03055  input  adj 

03060  print  ‘Input  adjustment  to  life  expectancy  at  retirement  (e.;.  +3). 
03065  input  long 

03066  print'If  you  wish  to  see  only  summary  totals*  type  sum.* 

03067  print  ‘If  you  wish  to  sea  full  detail*  type  detail.' 

03068  input  c$ 

03069  delt=l 
03070  g=99 
03075  tttrc=0 
03080  ys=1953 
03085  pg$3‘al‘ 

03090  print . . . 

03095  ttrc=0 


03100 

if 

(pgte'el * ) 

then 

g=l 

03105 

if 

(pg$=‘e2‘  ) 

then 

g=2 

03110 

if 

(pg$=‘e3‘  ) 

then 

g=3 

03115 

if 

(pg$=‘e4‘  ) 

than 

g=4 

03120 

if 

(pg$=‘e5‘  ) 

then 

g=S 

03125 

if 

(pg$=‘e6'  ) 

then 

g=6 

03130 

if 

(pg«=‘e7'  ) 

then 

g  =  7 

03135 

if 

(pg$=‘ea'  ) 

than 

g=8 

03140 

if 

( pgts‘e9‘  ) 

then 

9=9 

03145 

if 

(pg*s‘wl‘  ) 

then 

g-10 

03150 

if 

(pgS=‘w2‘  ) 

then 

g=H 

03155 

if 

( pg$s ‘w3‘  ) 

then 

g*12 

03160 

if 

( pg6*‘w4‘  ) 

then 

g=\5 

03165 

if 

(pg«=‘ol‘  ) 

then 

gsl4 

03170 

if 

(pgS*‘ole' 

)  then  g=l. 

03175 

if 

(pgS=‘o2'  ) 

then 

II 

03180 

if 

(pg0*‘o2e‘ 

)  then  g=l 

03185 

if 

( pgt= ‘o5’  ) 

then 

g=18 

03190 

if 

( pg«=‘o3e‘ 

)  then  g=l 

03195 

if 

(pgt=‘o4‘ ) 

then 

g=20 

03200 

if 

( pgts ‘o5 ‘  ) 

then 

g=21 

03205 

if 

( pgS= 'o6 ‘  ) 

then 

g=22 

03210 

if 

( pg$= ’o7‘  ) 

then 

g=23 

03215 

if 

(pg$=‘o8‘  ) 

then 

g=24 

03220 

if 

lpg«*‘o9'  ) 

then 

g*25 

03225 

if 

(pg8=‘ol0' 

)  then  gsf 

03235  lossdlgl+adj 


03240 

if 

los  <mrt )  then  loa=mrt 

03245 

if 

los<22) 

and 

t los>=20  ) 

then 

1=1 

03250 

if 

o 

u 

A 

and 

( los>=22) 

then 

1  =  2 

03255 

if 

los<26  ) 

and 

( los>=24 ) 

then 

1=3 

03260 

if 

CO 

V 

m 

0 

and 

(los>=26) 

than 

1=4 

03265 

if 

los<30 ) 

and 

( loa>=2a) 

then 

1=5 

03270 

if 

los>s30)  than  1=6 

03275 

03280 


bp-p(g*l ) 
cf=1983 
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03Z85  rf^los+ys 

03290  n=rf-cf 

03295  pp=bp 

03300  for  i=l  to  n 

03305  tp-pp«ln 

03310  pp3tp«pp 

03315  next  i 

03320  fac  ^los  »  dl 

03325  if  (fac>din)  then  fac^dni 

03330  if  Iy3>19a0l  then  goto  3650 

03335  ann=fac«pp«12 

03340  if  (pg$-‘el‘)  then  goto  3600 

03345  if  (n<0)  then  goto  3710 

03349  if  (d(gl>adj<iiirtl  and  (mrt>20)  then  goto  3706 
03350  ag=f(gl4adj 


03355 

if 

( ag<17+mrt ) 

then  ag= 

17+mrt 

03360 

if 

(ag<37) 

and 

(ag>s36) 

then 

Z*1 

03365 

if 

lag<38) 

and 

(ag>=37) 

then 

z=2 

03370 

if 

(ag<39) 

and 

( ag>=3a ) 

then 

z=S 

03375 

if 

<  ag<40  1 

and 

(ag>=39) 

then 

z=4 

03380 

if 

(ag<41  ) 

and 

(ag>:40l 

then 

z=5 

03385 

if 

( ag<42 ) 

and 

(ag>=41  ) 

then 

z=6 

03390 

if 

( ag<43 1 

and 

( ag>=42 ) 

then 

z=7 

03395 

if 

i 

V 

and 

( ag>=43 ) 

than 

z-8 

03400 

if 

( ag<45 ) 

and 

(ag>=44) 

than 

z=9 

03405 

if 

(ag<46) 

and 

(ag>=45) 

then 

z=10 

03410 

if 

lag<47) 

and 

( ag>=46 ) 

then 

z=ll 

03415 

if 

( ag<48 ) 

and 

( ag>=47) 

then 

z=12 

03420 

if 

(ag<49) 

and 

(ag»4a) 

then 

N 

II 

03425 

if 

(ag<50) 

and 

(ag>=49» 

then 

z=14 

03430 

if 

(ag<51 1 

and 

(ag>=50 1 

then 

x»lS 

03435 

if 

( ag<52 ) 

and 

(ag>s51 > 

then 

z=16 

03440 

if 

(ag<53) 

and 

(ag>=52l 

then 

z=17 

03445 

if 

( ag<S4 ) 

and 

(ag>=53) 

then 

Z318 

03450 

if 

(ag<55) 

and 

( ag>*54 1 

then 

z=19 

03455 

if 

(ag<:S6) 

and 

(ag>s55l 

then 

z«20 

03460 

if 

(ag<57) 

and 

(ag>3S61 

then 

z>21 

03465 

if 

(ag<S8) 

and 

ftl 

V 

II 

*44 

than 

z=22 

03470 

if 

(ag<59) 

and 

(ag>=5a) 

then 

z=23 

03475 

if 

( ag<60 I 

and 

<ag>=59 1 

then 

z=24 

03480 

if 

(ag<61  ) 

and 

( ag>s60 ) 

then 

z=25 

03485 

if 

(ag<62) 

and 

( ag>=61  1 

then 

z=27 

03490 

if 

( ag<63 ) 

and 

(ag>s62) 

then 

ZS28 

03495 

if 

( ag<64 ) 

and 

( ag>*63 ) 

than 

z=29 

03500 

if 

( ag<65 ) 

and 

( ag>=64  J 

then 

z=30 

03505 

if 

(ag>a65)  then  za31 

03510 

if 

(g<=9)  then 

li=e( z ) 

03515 

if 

lg>=10) 

then 

lisozi z 

03520  li^litlong 
03525  <j  =  (  Udi)**li 
03530  pre^ann*!  ( l-(  l/q  I  )/di ) 
03535  t=((l>di)**los)-l 
03540  nc-pre«( di/t ) 

03545  rc^nc 

03548  if  (g>=20)  then  goto  3555 
03550  if  (g<20)  then  proa. 12 
03552  if  (g<20)  then  propapro^ 
03554  goto  3560 
03555  if  (g>a20J  then  pro».4 
03556  if  ( g>a20 )  then  propapror 
03560  proa(  pro-tprop  ladelt 
03562  delta! 
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03565 

03570  if  (ys>1950)  and  lya<1983i  then  ffoto  3695 

03575  poc=pro*tjt»new 

03530  trc=pec*rc 

03585  ttrc=ttrc+trc 

03587  if  (c$='suni*)  then  joto  3595 

03590  print  using  ,pg«(ncttrc 

03595  goto  37Z5 

03600  print  'Vear  of  entry  =  * >ys 
03601  if  (c$='sura')  then  goto  3645 
03605  print  'Discount  rata  ^'tdl 
03610- print  'Salary  scale  estimator  =  ' )in 

03615  print  'Adjustment  to  entrant  retirement  probability  for' 
03616  print  'officers  =  ' jprot 

03617  print  'Adjustment  to  entrant  retirement  probability  for* 
03618print  'enlisted  personnel  =  *  tproq 

036ZO  print  'Adjustment  to  LOS  and  age  at  retirement  =  ' ladj 
036ZS  print  'Adjustment  to  life  expectancy  at  retirement  s  'ilong 
03630  print  'Retirement  pay  basis  per  year  of  service  =  * )dl 
03635  print  'Retirement  pay  ceiling  as  percentage  of  basic  -  ' >dm 
03637  print  'Minimum  los  for  retirement  =  ' imrt 
03640  print  'Paygrada  Normal  Coat  Total  Cost* 

03645  goto  3345 
03650  a=n-Z 
03655  rp=bp 
03660  for  k^l  to  a 
03665  vp=rp*in 
03670  rp=vp+rp 
03675  next  k 
03680  sp=(  in«rp  l+rp 
03685  pp»(  sp*rp*pp  )/3 
03690  goto  3335 

03695  if  (g>=Z0)  then  new3l000»odlys'1950 ) 

03700  if  (g<Zai  then  new=1000*ed< ys-1950 ) 

03705  goto  3575 

03706  agsflg)+mrt-d(g)-adj 

03707  REM  FORMUU  TO  AJD  ATTRITOM  IF  AVG  LOS  <  MLOS  FOR  RETIREMEKT 

03708  0ELT=1.00»*(MRT-0(G)-ADJI 

03709  goto  3355 

03710  ncsO 

03715  trc=0 

037Z0  goto  3585 

037Z5  if  (pg$='ol0')  then  goto  3845 
03730  if  (pg$='o9')  then  pg6='oI0' 

03735  if  (pg9='o8'l  then  pg$='o9' 

03740  if  lpg$='o7')  then  pgS='o8' 

03745  if  (pg$='o6')  then  pg$='o7' 

03750  if  (pg9='o5')  then  pg6='o6' 

03755  if  (pg«='o4')  then  pg6='o5’ 

03760  if  (pg$='o3a')  then  pg6='o4' 

03765  if  lpg«='oZe’)  then  pg0='o3e’ 

03770  if  tpg-^s'ole')  then  pg6='oZa' 

03775  if  (pg$='w4')  then  pg«='ole’ 

03780  if  (pg«='w3')  then  pg«='v4' 

03785  if  (pgOs'wZ')  then  pg«='w3' 

03790  if  (pgOs'wl*)  then  pg9='uZ' 

03795  if  (pg6='o9*)  then  pgSa'wl* 

03800  if  (pg«3'eS')  than  pg6-'a9‘ 

03805  if  (pg$s'e7'  )  then  pg6='e8' 

03810  if  (pgSa'e6')  then  pg9='e7' 

03815  if  Ipg6*'e5')  then  pg$»'e6’ 

038Z0  if  (pg6>'e4')  than  pgM'eS' 
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0382S  if  (pg$='a3')  then  pg«='e4' 

03830  if  (pjS='a2')  then  pj«='e3’ 

03835  if  (pg$='el'l  than  pj0='e2* 

03840  goto  3100 

03845  print  using  ‘Total  Year  Group  Cost  »  tttre 

03850  tttre=tttrc+ttrc 

03855  if  ys=1982  then  goto  3870 

03860  yssys+1 

03865  goto  3085 

03870  print 

03875  print  using  'Regular  Navy  Cost  =  )tttrc 

03885  goto  10 
03890  end 
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